(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    265434,       5002]
NotebookOptionsPosition[    263674,       4965]
NotebookOutlinePosition[    264031,       4981]
CellTagsIndexPosition[    263988,       4978]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:65b9\:6cd5\:4e00", "Subsection",
 CellChangeTimes->{{3.754819160808464*^9, 
  3.7548191661497803`*^9}},ExpressionUUID->"2cae5fd6-2d57-4bf2-b8aa-\
755930cc1bf0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Gcont", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TestInit", "[", 
    RowBox[{"m1_", ",", "m2_", ",", "m3_", ",", "initvalues_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "x1", ",", "y1", ",", "x2", ",", "y2", ",", "x3", ",", "y3", ",", "vx1",
        ",", "vy1", ",", "vx2", ",", "vy2", ",", "vx3", ",", "vy3", ",", "R0",
        ",", "P0", ",", "E1", ",", "E2", ",", "E3"}], "}"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "x1", ",", "y1", ",", "x2", ",", "y2", ",", "x3", ",", "y3", ",", 
         "vx1", ",", "vy1", ",", "vx2", ",", "vy2", ",", "vx3", ",", "vy3"}], 
        "}"}], "=", "initvalues"}], ";", "\[IndentingNewLine]", 
      RowBox[{"R0", "=", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"m1", "+", "m2", "+", "m3"}]], 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"m1", "*", "x1"}], "+", 
           RowBox[{"m2", "*", "x2"}], "+", 
           RowBox[{"m3", "*", "x3"}]}], ",", 
          RowBox[{
           RowBox[{"m1", "*", "y1"}], "+", 
           RowBox[{"m2", "*", "y2"}], "+", 
           RowBox[{"m3", "*", "y3"}]}]}], "}"}]}]}], ";", 
      RowBox[{"P0", "=", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"m1", "+", "m2", "+", "m3"}]], 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"m1", "*", "vx1"}], "+", 
           RowBox[{"m2", "*", "vx2"}], "+", 
           RowBox[{"m3", "*", "vx3"}]}], ",", 
          RowBox[{
           RowBox[{"m1", "*", "vy1"}], "+", 
           RowBox[{"m2", "*", "vy2"}], "+", 
           RowBox[{"m3", "*", "vy3"}]}]}], "}"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"E1", "=", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], "m1", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["vx1", "2"], "+", 
           SuperscriptBox["vy1", "2"]}], ")"}]}], "-", 
        RowBox[{"Gcont", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"m1", " ", "m2"}], 
            SqrtBox[
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"x1", "-", "x2"}], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"y1", "-", "y2"}], ")"}], "2"]}]]], "+", 
           FractionBox[
            RowBox[{"m1", " ", "m3"}], 
            SqrtBox[
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"x1", "-", "x3"}], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"y1", "-", "y3"}], ")"}], "2"]}]]]}], ")"}]}]}]}], 
      ";", 
      RowBox[{"E2", "=", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], "m2", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["vx2", "2"], "+", 
           SuperscriptBox["vy2", "2"]}], ")"}]}], "-", 
        RowBox[{"Gcont", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"m1", " ", "m2"}], 
            SqrtBox[
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"x1", "-", "x2"}], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"y1", "-", "y2"}], ")"}], "2"]}]]], "+", 
           FractionBox[
            RowBox[{"m2", " ", "m3"}], 
            SqrtBox[
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"x2", "-", "x3"}], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"y2", "-", "y3"}], ")"}], "2"]}]]]}], ")"}]}]}]}], 
      ";", 
      RowBox[{"E3", "=", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], "m3", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["vx3", "2"], "+", 
           SuperscriptBox["vy3", "2"]}], ")"}]}], "-", 
        RowBox[{"Gcont", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"m3", " ", "m2"}], 
            SqrtBox[
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"x3", "-", "x2"}], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"y3", "-", "y2"}], ")"}], "2"]}]]], "+", 
           FractionBox[
            RowBox[{"m1", " ", "m3"}], 
            SqrtBox[
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"x1", "-", "x3"}], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"y1", "-", "y3"}], ")"}], "2"]}]]]}], ")"}]}]}]}], 
      ";", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<Center Position and momentum as :\\n\>\"", ",", "R0", ",", 
        "\"\<\\n\>\"", ",", 
        SqrtBox[
         RowBox[{"P0", ".", "P0"}]], ",", "\"\<\\n\>\"", ",", 
        "\"\<init Energy as :\\n\>\"", ",", " ", 
        RowBox[{"{", 
         RowBox[{"E1", ",", "E2", ",", "E3", ",", 
          RowBox[{"E1", "+", "E2", "+", "E3"}]}], "}"}]}], "]"}], ";"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ThreeBody", "[", 
   RowBox[{"m1_", ",", "m2_", ",", "m3_", ",", "initvalues_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "r12", ",", "r13", ",", "r23", ",", "r21", ",", "r31", ",", "r32", ",", 
      "s"}], "}"}], ",", 
    RowBox[{
     RowBox[{"r12", "=", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"x1", "[", "t", "]"}], "-", 
            RowBox[{"x2", "[", "t", "]"}]}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"y1", "[", "t", "]"}], "-", 
            RowBox[{"y2", "[", "t", "]"}]}], ")"}], "2"]}], ")"}], 
       RowBox[{"3", "/", "2"}]]}], ";", 
     RowBox[{"r13", "=", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"x1", "[", "t", "]"}], "-", 
            RowBox[{"x3", "[", "t", "]"}]}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"y1", "[", "t", "]"}], "-", 
            RowBox[{"y3", "[", "t", "]"}]}], ")"}], "2"]}], ")"}], 
       RowBox[{"3", "/", "2"}]]}], ";", 
     RowBox[{"r23", "=", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"x2", "[", "t", "]"}], "-", 
            RowBox[{"x3", "[", "t", "]"}]}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"y2", "[", "t", "]"}], "-", 
            RowBox[{"y3", "[", "t", "]"}]}], ")"}], "2"]}], ")"}], 
       RowBox[{"3", "/", "2"}]]}], ";", 
     RowBox[{"r21", "=", 
      RowBox[{"-", "r12"}]}], ";", 
     RowBox[{"r31", "=", 
      RowBox[{"-", "r13"}]}], ";", 
     RowBox[{"r32", "=", 
      RowBox[{"-", "r23"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"TestInit", "[", 
      RowBox[{"m1", ",", "m2", ",", "m3", ",", "initvalues"}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"s", "=", 
      RowBox[{"NDSolve", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Gcont", "*", 
             FractionBox["m2", "r12"], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"x1", "[", "t", "]"}], "-", 
               RowBox[{"x2", "[", "t", "]"}]}], ")"}]}], "+", 
            RowBox[{"Gcont", "*", 
             FractionBox["m3", "r13"], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"x1", "[", "t", "]"}], "-", 
               RowBox[{"x3", "[", "t", "]"}]}], ")"}]}]}], "\[Equal]", 
           RowBox[{"-", 
            RowBox[{
             RowBox[{"x1", "''"}], "[", "t", "]"}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"Gcont", "*", 
             FractionBox["m2", "r12"], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"y1", "[", "t", "]"}], "-", 
               RowBox[{"y2", "[", "t", "]"}]}], ")"}]}], "+", 
            RowBox[{"Gcont", "*", 
             FractionBox["m3", "r13"], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"y1", "[", "t", "]"}], "-", 
               RowBox[{"y3", "[", "t", "]"}]}], ")"}]}]}], "\[Equal]", 
           RowBox[{"-", 
            RowBox[{
             RowBox[{"y1", "''"}], "[", "t", "]"}]}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Gcont", "*", 
             FractionBox["m1", "r12"], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"x2", "[", "t", "]"}], "-", 
               RowBox[{"x1", "[", "t", "]"}]}], ")"}]}], "+", 
            RowBox[{"Gcont", "*", 
             FractionBox["m3", "r23"], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"x2", "[", "t", "]"}], "-", 
               RowBox[{"x3", "[", "t", "]"}]}], ")"}]}]}], "\[Equal]", 
           RowBox[{"-", 
            RowBox[{
             RowBox[{"x2", "''"}], "[", "t", "]"}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"Gcont", "*", 
             FractionBox["m1", "r12"], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"y2", "[", "t", "]"}], "-", 
               RowBox[{"y1", "[", "t", "]"}]}], ")"}]}], "+", 
            RowBox[{"Gcont", "*", 
             FractionBox["m3", "r23"], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"y2", "[", "t", "]"}], "-", 
               RowBox[{"y3", "[", "t", "]"}]}], ")"}]}]}], "\[Equal]", 
           RowBox[{"-", 
            RowBox[{
             RowBox[{"y2", "''"}], "[", "t", "]"}]}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Gcont", "*", 
             FractionBox["m1", "r13"], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"x3", "[", "t", "]"}], "-", 
               RowBox[{"x1", "[", "t", "]"}]}], ")"}]}], "+", 
            RowBox[{"Gcont", "*", 
             FractionBox["m2", "r23"], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"x3", "[", "t", "]"}], "-", 
               RowBox[{"x2", "[", "t", "]"}]}], ")"}]}]}], "\[Equal]", 
           RowBox[{"-", 
            RowBox[{
             RowBox[{"x3", "''"}], "[", "t", "]"}]}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Gcont", "*", 
             FractionBox["m1", "r13"], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"y3", "[", "t", "]"}], "-", 
               RowBox[{"y1", "[", "t", "]"}]}], ")"}]}], "+", 
            RowBox[{"Gcont", "*", 
             FractionBox["m2", "r23"], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"y3", "[", "t", "]"}], "-", 
               RowBox[{"y2", "[", "t", "]"}]}], ")"}]}]}], "\[Equal]", 
           RowBox[{"-", 
            RowBox[{
             RowBox[{"y3", "''"}], "[", "t", "]"}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Reduce", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"x1", "[", "0", "]"}], ",", 
              RowBox[{"y1", "[", "0", "]"}], ",", 
              RowBox[{"x2", "[", "0", "]"}], ",", 
              RowBox[{"y2", "[", "0", "]"}], ",", 
              RowBox[{"x3", "[", "0", "]"}], ",", 
              RowBox[{"y3", "[", "0", "]"}], ",", 
              RowBox[{
               RowBox[{"x1", "'"}], "[", "0", "]"}], ",", 
              RowBox[{
               RowBox[{"y1", "'"}], "[", "0", "]"}], ",", 
              RowBox[{
               RowBox[{"x2", "'"}], "[", "0", "]"}], ",", 
              RowBox[{
               RowBox[{"y2", "'"}], "[", "0", "]"}], ",", 
              RowBox[{
               RowBox[{"x3", "'"}], "[", "0", "]"}], ",", 
              RowBox[{
               RowBox[{"y3", "'"}], "[", "0", "]"}]}], "}"}], "\[Equal]", 
            "initvalues"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
         "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3"}], "}"}],
         ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "0", ",", "200"}], "}"}]}], "]"}]}]}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.753953038160448*^9, 3.7539531571420684`*^9}, {
   3.7539532126806617`*^9, 3.7539532161904507`*^9}, {3.753953296992395*^9, 
   3.7539533034641266`*^9}, {3.7539534311793833`*^9, 3.753953435078374*^9}, {
   3.7539535529775734`*^9, 3.753953634353612*^9}, {3.753953667076908*^9, 
   3.7539538121313543`*^9}, {3.7539538427792444`*^9, 3.753953948406311*^9}, {
   3.753954073621009*^9, 3.753954098606678*^9}, {3.7539542066264772`*^9, 
   3.753954337560085*^9}, {3.753954438452976*^9, 3.7539548492947273`*^9}, {
   3.7539552958267865`*^9, 3.753955346005698*^9}, {3.753955378128911*^9, 
   3.753955446481533*^9}, {3.753955700536141*^9, 3.7539557372320395`*^9}, {
   3.753955814623777*^9, 3.7539560666790533`*^9}, {3.7539562249625864`*^9, 
   3.7539562410599575`*^9}, {3.7539562960092077`*^9, 3.753956362484929*^9}, {
   3.7539564550084953`*^9, 3.753956456017073*^9}, {3.753956519319948*^9, 
   3.753956625032404*^9}, {3.753958865369805*^9, 3.753958866842377*^9}, {
   3.7539597519155865`*^9, 3.7539597552776523`*^9}, {3.75479707129042*^9, 
   3.754797073638227*^9}, {3.754797432366599*^9, 3.754797568453724*^9}, {
   3.754801104682784*^9, 3.754801109660242*^9}, 3.754801179077045*^9, 
   3.754801223020688*^9, 3.754819222878957*^9, {3.754822179695093*^9, 
   3.7548221977183895`*^9}, {3.754822251474723*^9, 3.754822459058838*^9}, {
   3.754822519017377*^9, 3.754822572062619*^9}, {3.75482262929478*^9, 
   3.754822639699603*^9}, {3.754822672250716*^9, 3.754822682887739*^9}, {
   3.7548227730752954`*^9, 3.754822822544174*^9}, {3.7548229159430137`*^9, 
   3.7548229393780146`*^9}, {3.7548229828926773`*^9, 3.754823345146106*^9}, {
   3.754823701925685*^9, 3.7548237531336184`*^9}, {3.754824047864518*^9, 
   3.754824049403091*^9}, {3.7548243691130886`*^9, 3.754824374225773*^9}, {
   3.7548248317588987`*^9, 3.754824832217923*^9}, {3.754824884538754*^9, 
   3.7548249350216365`*^9}, {3.7548255206040015`*^9, 
   3.7548255299257956`*^9}, {3.754825691808608*^9, 3.754825702883833*^9}, {
   3.7548266592783017`*^9, 
   3.754826659546152*^9}},ExpressionUUID->"8ca4613c-2c72-4944-ae36-\
d1dd0bba45df"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"s", "=", 
  RowBox[{"ThreeBody", "[", 
   RowBox[{"10", ",", "10", ",", "10", ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"10", "*", 
       RowBox[{"Tan", "[", 
        RowBox[{"30", "\[Degree]"}], "]"}]}], ",", "10", ",", "0", ",", 
      RowBox[{"-", "10"}], ",", "0", ",", "0", ",", "1", ",", 
      RowBox[{
       SqrtBox["3"], "/", "2"}], ",", 
      RowBox[{"-", "0.5"}], ",", 
      RowBox[{
       RowBox[{"-", 
        SqrtBox["3"]}], "/", "2"}], ",", 
      RowBox[{"-", "0.5"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"x1", "[", "t", "]"}], ",", 
        RowBox[{"y1", "[", "t", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"x2", "[", "t", "]"}], ",", 
        RowBox[{"y2", "[", "t", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"x3", "[", "t", "]"}], ",", 
        RowBox[{"y3", "[", "t", "]"}]}], "}"}]}], "}"}], "/.", "s"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "100"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.754819191718753*^9, 3.7548192409112*^9}, {
  3.754819435461271*^9, 3.7548194614790077`*^9}, {3.754823409655409*^9, 
  3.7548234098921604`*^9}, {3.754823465621359*^9, 3.7548234702101765`*^9}, {
  3.754823501652931*^9, 3.754823511339741*^9}, {3.754823605377263*^9, 
  3.7548236767717843`*^9}, {3.754823773696507*^9, 3.754823775705762*^9}, {
  3.7548238789185576`*^9, 3.7548238997937975`*^9}, {3.7548239601348696`*^9, 
  3.7548239705006113`*^9}, {3.754824061981148*^9, 3.754824070689563*^9}, {
  3.7548241022422514`*^9, 3.754824137001711*^9}, {3.7548257140722427`*^9, 
  3.7548257146415305`*^9}, {3.754826329901531*^9, 3.754826426566001*^9}, {
  3.7548265345919886`*^9, 3.754826564836364*^9}, {3.754826629355895*^9, 
  3.75482664167509*^9}},ExpressionUUID->"2b043ad6-65ec-45ef-85eb-\
f5e707341a8a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Center Position and momentum as :\\n\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     FractionBox["10", 
      RowBox[{"3", " ", 
       SqrtBox["3"]}]]}], "}"}], "\[InvisibleSpace]", "\<\"\\n\"\>", 
   "\[InvisibleSpace]", "0.`", "\[InvisibleSpace]", "\<\"\\n\"\>", 
   "\[InvisibleSpace]", "\<\"init Energy as :\\n\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"5", "-", 
      RowBox[{"10", " ", 
       SqrtBox["3"]}]}], ",", 
     RowBox[{"-", "8.660254037844386`"}], ",", 
     RowBox[{"-", "8.660254037844386`"}], ",", 
     RowBox[{"-", "29.641016151377542`"}]}], "}"}]}],
  SequenceForm[
  "Center Position and momentum as :\n", {
   0, Rational[10, 3] 3^Rational[-1, 2]}, "\n", 0., "\n", 
   "init Energy as :\n", {
   5 - 10 3^Rational[
      1, 2], -8.660254037844386, -8.660254037844386, -29.641016151377542`}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.754824351462387*^9, 3.754824397962858*^9, 3.7548249427919717`*^9, 
   3.754825537617597*^9, {3.754825711362417*^9, 3.754825716709961*^9}, 
   3.754826432550256*^9, {3.7548265407017827`*^9, 3.7548265664216576`*^9}, {
   3.7548266324644814`*^9, 
   3.754826664270562*^9}},ExpressionUUID->"5978ebb7-8079-410e-82cf-\
8b318443db85"],

Cell[BoxData[
 TemplateBox[{
  "NDSolve","ndsz",
   "\"\:5728 \\!\\(\\*RowBox[{\\\"t\\\"}]\\) == \
\\!\\(\\*RowBox[{\\\"102.93762263160029`\\\"}]\\) \:5904\:ff0c\:6b65\:957f\
\:5b9e\:9645\:4e0a\:4e3a\:96f6\:ff1b\:53ef\:80fd\:5b58\:5728\:5947\:70b9\:6216\
\:8005\:521a\:6027\:7cfb\:7edf.\"",2,94,21,16342388671054335306,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.754826664374502*^9},ExpressionUUID->"7e7f08ee-a4ef-4861-a76a-\
cb440c719612"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x1", "\[Rule]", 
     InterpretationBox[
      RowBox[{
       TagBox["InterpolatingFunction",
        "SummaryHead"], "[", 
       DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
        "Ready"}, 
        TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
                PaneBox[
                 ButtonBox[
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEBitmaps", "SquarePlusIconMedium"]], 
                  ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                  None, Evaluator -> Automatic, Method -> "Preemptive"], 
                 Alignment -> {Center, Center}, ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJxTTMoPSmViYGCwAWIQff6qwOdi1712DFDQxecpGX3zlz2Mv7/goF3uL24H
GH/xjC/Ji0+IwPk92eoeHwul4fx18mJRT0IV4fxI+9utYltV4Pzy+M7S3hgN
OP/FD7avXz5pw/kyHu6vFnnrw/kPvXdc9CozhPOn++llPlc3hvO/8fZ4/Llg
Auf3+d7rNJ5nBuezvxBk6/OxgPN3M1k94ZK3gvMlb3lyMby0hvMjeKyzJabY
wvkX9inoBSfbw/mizz5PvdHpAOffX3PxqESJI5z/N3CxpGiUEyJ8ljzlWmzg
DOdbmCvpOkm6wPmh5effFH1C8I9NLbgQf9wVzg/5wv00dp0bnB/MIDH9bas7
nJ/vI1fVl+8B5z8ok2h8HeIJ5x/0a1a9peUF5+9Pe/HrppA3nK+nsy83+zWC
/+l8O8vO/T5w/qXN3mfEl/nC+cquDYYctX5w/kSx9cc50/zh/B1ey2vPyQfA
+UE/CzTLuhD838e356r9Q/Bj3m5rkM8KhPNPGxnrKN5H8FPTV75kCAqC87d/
ul6quRfBl5jXPCvKMBjON1zwvPfKXAS/ZKLrZB2OEDj/2CIFw95qBP8C15a5
Zs8R/JeTjix6ER0K5+twnd9ZcQ7BV78xcX6gZRjCvmMXZY3XIvifuU5lxUqG
w/lH8u0DJvQh+PsPr3NfyBgB5xflXeP9nYPgm1hW58Q+RPDXRd2YyeEXCecv
COD8zbgHwQcApHPSyA==
                    "]]}, 
                    Annotation[#, 
                    "Charting`Private`Tag$36637#1"]& ]}}, {}, {}}, {
                 DisplayFunction -> Identity, Ticks -> {Automatic, Automatic},
                   AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                  GridLines -> {None, None}, DisplayFunction -> Identity, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                  All, DisplayFunction -> Identity, AspectRatio -> 1, 
                  Axes -> {False, False}, AxesLabel -> {None, None}, 
                  AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                  Method -> {
                   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                  PlotRange -> {{0., 102.93762263160029`}, {-1., 1.}}, 
                  PlotRangeClipping -> True, PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                GridBox[{{
                   RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "102.93762263160029`"}], "}"}], "}"}],
                     "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {
                  "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                 BaseStyle -> {
                  ShowStringCharacters -> False, NumberMarks -> False, 
                   PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
              GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              BaselinePosition -> {1, 1}], True -> GridBox[{{
                PaneBox[
                 ButtonBox[
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEBitmaps", "SquareMinusIconMedium"]], 
                  ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                  None, Evaluator -> Automatic, Method -> "Preemptive"], 
                 Alignment -> {Center, Center}, ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJxTTMoPSmViYGCwAWIQff6qwOdi1712DFDQxecpGX3zlz2Mv7/goF3uL24H
GH/xjC/Ji0+IwPk92eoeHwul4fx18mJRT0IV4fxI+9utYltV4Pzy+M7S3hgN
OP/FD7avXz5pw/kyHu6vFnnrw/kPvXdc9CozhPOn++llPlc3hvO/8fZ4/Llg
Auf3+d7rNJ5nBuezvxBk6/OxgPN3M1k94ZK3gvMlb3lyMby0hvMjeKyzJabY
wvkX9inoBSfbw/mizz5PvdHpAOffX3PxqESJI5z/N3CxpGiUEyJ8ljzlWmzg
DOdbmCvpOkm6wPmh5effFH1C8I9NLbgQf9wVzg/5wv00dp0bnB/MIDH9bas7
nJ/vI1fVl+8B5z8ok2h8HeIJ5x/0a1a9peUF5+9Pe/HrppA3nK+nsy83+zWC
/+l8O8vO/T5w/qXN3mfEl/nC+cquDYYctX5w/kSx9cc50/zh/B1ey2vPyQfA
+UE/CzTLuhD838e356r9Q/Bj3m5rkM8KhPNPGxnrKN5H8FPTV75kCAqC87d/
ul6quRfBl5jXPCvKMBjON1zwvPfKXAS/ZKLrZB2OEDj/2CIFw95qBP8C15a5
Zs8R/JeTjix6ER0K5+twnd9ZcQ7BV78xcX6gZRjCvmMXZY3XIvifuU5lxUqG
w/lH8u0DJvQh+PsPr3NfyBgB5xflXeP9nYPgm1hW58Q+RPDXRd2YyeEXCecv
COD8zbgHwQcApHPSyA==
                    "]]}, 
                    Annotation[#, 
                    "Charting`Private`Tag$36637#1"]& ]}}, {}, {}}, {
                 DisplayFunction -> Identity, Ticks -> {Automatic, Automatic},
                   AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                  GridLines -> {None, None}, DisplayFunction -> Identity, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                  All, DisplayFunction -> Identity, AspectRatio -> 1, 
                  Axes -> {False, False}, AxesLabel -> {None, None}, 
                  AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                  Method -> {
                   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                  PlotRange -> {{0., 102.93762263160029`}, {-1., 1.}}, 
                  PlotRangeClipping -> True, PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                GridBox[{{
                   RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "102.93762263160029`"}], "}"}], "}"}],
                     "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["3", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["False", "SummaryItem"]}]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                 False, 
                 GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {
                  "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                 BaseStyle -> {
                  ShowStringCharacters -> False, NumberMarks -> False, 
                   PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
              GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              BaselinePosition -> {1, 1}]}, 
           Dynamic[Typeset`open$$], ImageSize -> Automatic]},
         "SummaryPanel",
         DisplayFunction->(
          ButtonBox[#, Active -> False, Alignment -> Left, 
           Appearance -> {
            "Default" -> 
             FrontEnd`FileName[{"Typeset", "SummaryBox"}, "Panel.9.png"]}, 
           FrameMargins -> 7, BaseStyle -> {}, 
           DefaultBaseStyle -> {"Panel", Background -> None}, 
           BaselinePosition -> Baseline]& )],
        DynamicModuleValues:>{}], "]"}],
      InterpolatingFunction[{{0., 102.93762263160029`}}, {
       5, 7, 2, {504}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
        False}, CompressedData["
1:eJwt0gk0VlsbB3AkZEgTJXMX0SAV9w3lfcqQDJl5T4Mh5YbSXF4ZSsVFcg1X
hIyROTLkVkqUvnAvkkoJoSJTkbHy7aGz1tm/9ayz197/Z++juO+I9QE+Hh4e
XvRO4uHXI9XpJNV2k82mWrC9Fz92bKyMZ09GO42vgWz2couCd96NxezAw9kH
yu9VsysDlbLrBOrZP+ssxo+oNrMT7cWW+Zi3snW6nmlfPN7G1p1J0zNz7GK3
XXJ2tr/Qy/ZeIBfofLOPLZnwJt2jYZDdFlW/T2dqhL1HN4st7D3G7ug+L9M2
PsF2ubxnKvvUDLtHk9XKHfvJvj305+sMbV4Y2zZeKzrFB98vWy0L8JwL/C/z
Dn5pFwRRRaEKV0thWOzpOq/1kShIl1YyxlriEDkratf+fAH8naHjJym2CB6d
Nht8+WkxDBs77o2vkQAZ6aMNu1KWwo7B81tkfKXg9IPo/HYHaUiPvCGbvFEW
Gl3Lw53F5UHPYjYvvUoBYgZWLL46owj9IUbcUK3fYOtKjw6/I0pwtSbc8Fi2
Mgy6FOXu71YB/dmWhRxZVRiqsWz5UqkG8aH1sWHOq8HA0phR5lsLQxI10g/S
1aFhUP5I3goNSGvca8kd1QDv2wnrjWrWg+Xf4QXNrzeA6pmA1U7DG4GXOXbz
M78WvNZxVfZe/jsUy9il8WuwIPSnkXyk4SZw7dyUKLtbGw50x2lz6nXgjw+T
rVFbNoN7H+dkQ8EW8By4s1BIgQ1lZy47pBoDsLibM/V4t8Idn4GxNxVboWVe
85kFhdtgOK582iBDH4RVk/y48QagXB7IU3DFEMDo4IX3F4xg9wtzgaXc7XBm
/8YQUy9jKO77nGCatwMGvTIKTPtNQG1sT5Wpqhns50q0mLqZQ/LPhg+mGTuh
7ULQlOl7Cwi7KC+g8pclqNWeFVdZZwXuKelfFIqsIJtb91x6ozX0WY+WSpZa
QwX3fli7vA2EpAS7ZITaAFNrxfL8ZgORFqttr5vZwtOX/Mea0m2Bx/ldOP+M
LXTG9o+qb7ODqoZxhgmxg1T+OQ8vNNpBdHSPYaKwPQSteFJXYmAP3kVZVg3+
9tBlm7vXuMAeTCcL3Kvb7aEkofiUnpgDiCl8t16u6QAHMgw1xnc5QKVqhFjz
eQdwvOM8kZbqALPbN3SdqHKA5Jdz6gy6HMDnkcTmLTMOYJe/Ml9LggMacdpy
6us44FPlqbnegAOP+5NMNBkOiC9pdGZ5cWBJ9qu18wM4IKXXNd0TwQG55321
d1M48OB8u0RCAQecNZpcfe5xgLejpoh5xoG08Duzm15x4H1qpqFFNwdWlMWE
HRjiwL5ngU1npziQ+u7o0ih+Brq+Ou69Kc6AoqB5euVyBlykdftalBkQ+qTo
G6DOwK0SIfFVLAZY99IX2esxUFmtJxloyIBh3WupAjMG6ptPyrbZMGDTJq4o
sJuBtq4cpQ37GKgL61HgPcjAPS052cbDDOR3OEgln2AgOSRSwovLgF96uKiU
PwN77ofMqQlkQOflpWmvYAbiYyv4V4YxMGU3OL/jCgN7zzYaDkUyUJVy2/dH
DAMqT2Jvi8ah7yVevUHX0P7pRkt5kxiQKuDbuiCZAbc7lR7yqQzcfuQTo57O
QLe8/rK3GQws8hNJDMlkYGvbc3nWTQa8lol7hGUzcM3epKQjhwHjT0vmTecy
8I3bsXdJPgNpIjnF6gUM/Jhn83RpIQMcoe/tPLcYKBG4MdqHXFSavyCjiIFj
rmVrHYsZaFz4wGTZbQaqT4R8zEOWvbC5uLWEgWyWnGIrsmu3x0uzUpTzXFl4
NdIqg89Ap4wBYa8HpvHIapavzSTSj1d7t0M5A4MvjsSmIx1zMpuGkf/5t4tu
vsOA4PXjNlwk+77gtTLkmbeJnaNIrSPO2soVDIzyKkXZI4tiPvYHI1Na+ioK
kRFLBv58ifSzHXKYRbpoSQfK/4PuUdI4j41UmzjZ6oQ8FCnTzkUWrK7pjkZ+
eezZn4/UfRvOU40M+loo+QrZJNS8ZhDZ6pu1/SfyzYjvPvG7qM/91n4KSOVJ
DRd1pEeYuOFmZKHckKoJMmiD4wk7pKPRv/edkVq79IQOIbmaH1inkPfnX/nD
H8nTp3U1GCkpuHRRBHKt8uTlWKS+/mvB60jzCT2FDKRDbsamHKSLk7DVLeTO
t8d3lCJ1mTdb/0GqterrPEBaSPgaVyNP25bY1yKTogf21yFvPQ4t+RdZPaHK
34xsVau1eYG0zVcWeoVs1rh4rw1pWfL+aDvynWRZZgfSkxvytgs5+WbPoh7k
ufypzl7kvIDYwo/ISMuN/n1IJ9mYyX6kev/Y8QHkjzK7wUGkqfDQimFk/N4g
zgjywy25K19wH5aXwr4i3w5//nMU9xdhHTSGXDy3zu4b8l8ffeVxZMjI3TGs
Z9ON6xO47+II40mkRjT3KzY0LcdvCtlT9EZoGqlXJRqDLRReLjCDVLBd6Y2N
StLsx15vyN/+HZn7Q+UG9s7aFL4fyIt1bAuslXtHAlZOMOATNj3fauVPpKqt
khs2b3o8A7vK6OwrbFbkrMgsUqn9AhurdbjGHWv0gz8Gywk3rMSabRrqxEJ3
7Byee2jeFbYKdiS3YBs293+yTli3j5fPYk28uqKw675p5WAX+4ZWYdWDC1uw
xlEtH7GuSVPT2JjWQmFe5BNxt+XYCWOZVdiX13hZ2PKBD/rYq3r1ltjf5Pft
xhbOThzAbu4MP4rlnNbjYk+JDp/HRqYlh2IXfq+KJLVdTxypCwVSsNIb39/A
qpTfz8Wu140vwv7je7AMq1/JuottmBV4SGqx6WpsxfLBWuw61c464lG5/4h3
9jQTeRJeYPPeGbzCqt0fasNmJsS1Y92Sn3aQfdMnu7AfM1V7sLaJY73Yh5EP
P2LXBl/uwy6yEfiMHZc7N4Bt658axNZs0RjGFvzlNkLOpzvxC3asPuEr1rLs
2ig2Pzl+jJyLgOc37JbDm8exc1vEJrB3X1cQj3ccmCR5exdOYSVYyUTekDXT
2IG2CuL9sbUz2Cvz04hOqpLfsV2hp4iugy3EHgvNH9ju/EBil0gTscNd/id2
tt6JKK+RQmRHd1J9JGaxei4mVOMA4tMHOUQbVivxXQEvDx/+Dw8oE+fI7iBK
tBwi3l0TSnS5lEUUfFdDXD7zlrh22TciaInxYm/NVSQqtmoSIzONiXlDHGLt
7+7E9/5c4lBHEHEaYogCaanESyl5xDnJ5cTApEdEy8w6olxhC3GwvJ3or9RL
FI8cIKb8GCWeWDpNNFrPw4eVMhUg/rVThChkvYAYYCdB1D0pRRyPkiUWFSkS
Ty9RJuqcUSXOvl5NNE9TJyZ6rCf2b9Akmvr+Tsx9vIkoIq5LlBnZTFRv0iOy
i4EYt2Ub8ctTfaKJrSFxQ7wRzf1uO5H3tx3EueomxHnapkRRAzOin7w5cWia
6tS6k1geakGcz7Ykuo1Sk4KtiM+lrYnCt6iv1WyIWenU07K2xKjz1Pxe6tMd
dnTdRKrtEPUa2BNZF6kvaqknRBxofn3qVR+qWjG1pYN6ToxDXKNLLXWm6gVR
a3OpKc+o3D6qtRBD8ylSBXWpLrbUTe7U+f7UnigqfwZVqZRq8ITKaaF6vqf6
j1DFv1NTBHfRe1pMLZGhaqlQy9dRg1lUDpuqup0aY07lsaUe2kW97USd3k/d
6kGN86IOHacanqG2+lDd/KkT56m9F6nPg6lVodRV4dSoCOpMJPVbNHXkb+rn
q9SweOqaBGp9InXFdSo3mfpfCvVTKpUvnSqd8au+Qe37ZVMmNSKLan6TKpJN
zfqlfg6145dOudTOXzrnUZ/9cmM+NemX/weIA7I/
       "], {Developer`PackedArrayForm, CompressedData["
1:eJwl0wPXEAYYBeCvL9u2bdu2bdu2bdu2bdu2sVqtVqvV2p7O3nOe9wfce27i
Jh2rdAgSEBDw7ddzQQlBaMIRkShEJxZxSUBikpGSNKQnE1nJQW7yUZAiFKcU
ZalAZapRkzrUpxFNaUFr2tGRLnSnF30ZwGCGMZIxjGcSU5nBbOaxkCUsZxVr
2cBmtrGTPeznEEc5wWnOcZErXOcWd3nAY57xkje84wOf+PIrT37wL4GyDU4o
whKByEQjJnGITyKSkoLUpCMjWchOLvJSgMIUoyRlKE8lqlKD2tSjIU1oTiva
8qvwznSjJ33ozyCGMoLRjGMiU5jOLOaygMUsYyVrWM8mtrKD3ezjIEc4zinO
coHLXOMmd7jPI57ygte85T0f+cxXvvOTIIEBAcEISRjCE4moxCA28UhIEpKT
irRkIDPZyEke8lOIopSgNOWoSBWqU4u6NKAxzWhJG9rTia70oDf9GMgQhjOK
sUxgMtOYyRzms4ilrGA169jIFrazi70c4DDHOMkZznOJq9zgNvd4yBOe84rf
+J0/+JO/+Jt/Av8ff1BCEJpwRCQK0YlFXBKQmGSkJA3pyURWcpCbfBSkCMUp
RVkqUJlq1KQO9WlEU1rQmnZ0pAvd6UVfBjCYYYxkDOOZxFRmMJt5LGQJy1nF
WjawmW3sZA/7OcRRTnCac1zkCte5xV0e8JhnvOQN7/jAJ77wjR/8S2Aw+ycU
YYlAZKIRkzjEJxFJSUFq0pGRLGQnF3kpQGGKUZIylKcSValBberRkCY0pxVt
6UBnutGTPvRnEEMZwWjGMZEpTGcWc1nAYpaxkjWsZxNb2cFu9nGQIxznFGe5
wGWucZM73OcRT3nBa97yno985ivf+UmQ4PZPSMIQnkhEJQaxiUdCkpCcVKQl
A5nJRk7ykJ9CFKUEpSlHRapQnVrUpQGNaUZL2tCeTnSlB73px0CGMJxRjGUC
k5nGTOYwn0UsZQWrWcdGtrCdXezlAIc5xknOcJ5LXOUGt7nHQ57wnFf8BxjG
/90=
        "], CompressedData["
1:eJztwTERACAMBLBnQEgtIYE7Zmwjo0JIUvuuM5K8GQAAAAAAAAAAAAAA+EID
qrUCmA==
        "]}, {Automatic}],
      Editable->False,
      SelectWithContents->True,
      Selectable->False]}], ",", 
    RowBox[{"x2", "\[Rule]", 
     InterpretationBox[
      RowBox[{
       TagBox["InterpolatingFunction",
        "SummaryHead"], "[", 
       DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
        "Ready"}, 
        TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
                PaneBox[
                 ButtonBox[
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEBitmaps", "SquarePlusIconMedium"]], 
                  ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                  None, Evaluator -> Automatic, Method -> "Preemptive"], 
                 Alignment -> {Center, Center}, ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwVk3tQ0wUAxweiwnhcIqwNLFwMYTIee/0m4NgX5TEejm1svISjomG8HBAM
07jgkDq8gawkpZIENK/iYZKIGew4EQxUoExeBajoBkqeMBJhZvTH9z73+fdz
96W/q5arLEkk0u71/c+hP15b+iCsK3g3uZ1DIjFwzCGStn98VcRIqN+a2rYD
+rye4NxVWyhlai86j4mmU6b0phtOaOOkaYbE3tBme4qf5bvCXkfJ+NvNB61u
lORZJR2xgQdod576Ikk0WUG5xECObOqHSqE/itMqi6pSvJBl6NRNWLBhXNm0
bFr0hln14kHNRTa2iSPmG6P9sNl8XFUWxcG96M6RKA0bOx0aqrLuc3BS4ptp
8OTC1mPWylnFxT/2WrF5mIeVr8ddDk5yUb1vqpJbT2CQV299QsbDZuOWTdUx
u8BJEcVe6uDhqmXgLNktEBF+vcIHLnzQJiLJpLkgMM5ntrsU8pFoF5RNPSHE
IZ5/+WE9H8Pd233j0kUod5+9aLYm4PxoqXasEjC/MtRRwwlMN49cpxaGYGOD
eSGllMBLWRPNOXkP7IrO5nb+SEB79iG5yX8vtKeY+kdjBHYJ3vLZQwtF7rkL
hk1mAsrioScFi6FoWXb6dQNFgL7avOG0/jD83Fcs9GMKoDDZPkxtDcefdmUO
a4QAcSTqyYWKCEzduLAlTiiAOubNw9VqMTyqC7xc131GQy17rIjEUZfBoE6+
AD2Sco+JnVHI0ZmMmV4C6DOMq+OO0Zi59dHIkqMAvqzu3OzH0Yj0z+kNXSGw
OPSp1RV9DGZdtebhUQK/tUfffP3bfShfthjRtBBwDytlW5dIsGEjlB4fE9BR
2vptMmLxV9WYIS2MQGfU+ZLbblKkx98qZq33kr/IY2qOSWEzZTvPuc7HWv/l
3B3/SrEgKpZUrPdOWegodcuSIZiZr8mj8zHI4bLo0zIkdr1tquvmQXXguzmS
XI7hUnVTuIKHy4ujRcwuOUwzW/MzjFxQ68u/TGbHoZU+3ZyfyQX7jKHqzuk4
CLy54pdGDgp1YZ+zrBV4NfdczniHg77G7eyqIwp8SGHd/b2HjWHyT6cJgwIp
If7PbehszH3W22jcr4Rq4Lhc+J4/WOShK4duK5FmWfPEie8HzzHdN7KAeLRl
lk+OfuUDdt/IG9yWeHzi/uymusMbS+SBrFRaAqxql0kB15joVYukNdUJ+CK8
1EX6vif011ojGiwSkfe9JPlcHwMFB+/ar+UkwqlEe3Vpng5ewJGc1HuJYNCf
kqTcbWhNHquzliTBKaS7eWCvI85IbdYsfkla/+N9zxYxX/QfgpiZTg==
                    "]]}, 
                    Annotation[#, 
                    "Charting`Private`Tag$36688#1"]& ]}}, {}, {}}, {
                 DisplayFunction -> Identity, Ticks -> {Automatic, Automatic},
                   AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                  GridLines -> {None, None}, DisplayFunction -> Identity, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                  All, DisplayFunction -> Identity, AspectRatio -> 1, 
                  Axes -> {False, False}, AxesLabel -> {None, None}, 
                  AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                  Method -> {
                   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                  PlotRange -> {{0., 102.93762263160029`}, {0., 
                   23.23954878393203}}, PlotRangeClipping -> True, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                GridBox[{{
                   RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "102.93762263160029`"}], "}"}], "}"}],
                     "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {
                  "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                 BaseStyle -> {
                  ShowStringCharacters -> False, NumberMarks -> False, 
                   PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
              GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              BaselinePosition -> {1, 1}], True -> GridBox[{{
                PaneBox[
                 ButtonBox[
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEBitmaps", "SquareMinusIconMedium"]], 
                  ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                  None, Evaluator -> Automatic, Method -> "Preemptive"], 
                 Alignment -> {Center, Center}, ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwVk3tQ0wUAxweiwnhcIqwNLFwMYTIee/0m4NgX5TEejm1svISjomG8HBAM
07jgkDq8gawkpZIENK/iYZKIGew4EQxUoExeBajoBkqeMBJhZvTH9z73+fdz
96W/q5arLEkk0u71/c+hP15b+iCsK3g3uZ1DIjFwzCGStn98VcRIqN+a2rYD
+rye4NxVWyhlai86j4mmU6b0phtOaOOkaYbE3tBme4qf5bvCXkfJ+NvNB61u
lORZJR2xgQdod576Ikk0WUG5xECObOqHSqE/itMqi6pSvJBl6NRNWLBhXNm0
bFr0hln14kHNRTa2iSPmG6P9sNl8XFUWxcG96M6RKA0bOx0aqrLuc3BS4ptp
8OTC1mPWylnFxT/2WrF5mIeVr8ddDk5yUb1vqpJbT2CQV299QsbDZuOWTdUx
u8BJEcVe6uDhqmXgLNktEBF+vcIHLnzQJiLJpLkgMM5ntrsU8pFoF5RNPSHE
IZ5/+WE9H8Pd233j0kUod5+9aLYm4PxoqXasEjC/MtRRwwlMN49cpxaGYGOD
eSGllMBLWRPNOXkP7IrO5nb+SEB79iG5yX8vtKeY+kdjBHYJ3vLZQwtF7rkL
hk1mAsrioScFi6FoWXb6dQNFgL7avOG0/jD83Fcs9GMKoDDZPkxtDcefdmUO
a4QAcSTqyYWKCEzduLAlTiiAOubNw9VqMTyqC7xc131GQy17rIjEUZfBoE6+
AD2Sco+JnVHI0ZmMmV4C6DOMq+OO0Zi59dHIkqMAvqzu3OzH0Yj0z+kNXSGw
OPSp1RV9DGZdtebhUQK/tUfffP3bfShfthjRtBBwDytlW5dIsGEjlB4fE9BR
2vptMmLxV9WYIS2MQGfU+ZLbblKkx98qZq33kr/IY2qOSWEzZTvPuc7HWv/l
3B3/SrEgKpZUrPdOWegodcuSIZiZr8mj8zHI4bLo0zIkdr1tquvmQXXguzmS
XI7hUnVTuIKHy4ujRcwuOUwzW/MzjFxQ68u/TGbHoZU+3ZyfyQX7jKHqzuk4
CLy54pdGDgp1YZ+zrBV4NfdczniHg77G7eyqIwp8SGHd/b2HjWHyT6cJgwIp
If7PbehszH3W22jcr4Rq4Lhc+J4/WOShK4duK5FmWfPEie8HzzHdN7KAeLRl
lk+OfuUDdt/IG9yWeHzi/uymusMbS+SBrFRaAqxql0kB15joVYukNdUJ+CK8
1EX6vif011ojGiwSkfe9JPlcHwMFB+/ar+UkwqlEe3Vpng5ewJGc1HuJYNCf
kqTcbWhNHquzliTBKaS7eWCvI85IbdYsfkla/+N9zxYxX/QfgpiZTg==
                    "]]}, 
                    Annotation[#, 
                    "Charting`Private`Tag$36688#1"]& ]}}, {}, {}}, {
                 DisplayFunction -> Identity, Ticks -> {Automatic, Automatic},
                   AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                  GridLines -> {None, None}, DisplayFunction -> Identity, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                  All, DisplayFunction -> Identity, AspectRatio -> 1, 
                  Axes -> {False, False}, AxesLabel -> {None, None}, 
                  AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                  Method -> {
                   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                  PlotRange -> {{0., 102.93762263160029`}, {0., 
                   23.23954878393203}}, PlotRangeClipping -> True, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                GridBox[{{
                   RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "102.93762263160029`"}], "}"}], "}"}],
                     "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["3", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["False", "SummaryItem"]}]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {
                  "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                 BaseStyle -> {
                  ShowStringCharacters -> False, NumberMarks -> False, 
                   PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
              GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              BaselinePosition -> {1, 1}]}, 
           Dynamic[Typeset`open$$], ImageSize -> Automatic]},
         "SummaryPanel",
         DisplayFunction->(
          ButtonBox[#, Active -> False, Alignment -> Left, 
           Appearance -> {
            "Default" -> 
             FrontEnd`FileName[{"Typeset", "SummaryBox"}, "Panel.9.png"]}, 
           FrameMargins -> 7, BaseStyle -> {}, 
           DefaultBaseStyle -> {"Panel", Background -> None}, 
           BaselinePosition -> Baseline]& )],
        DynamicModuleValues:>{}], "]"}],
      InterpolatingFunction[{{0., 102.93762263160029`}}, {
       5, 7, 2, {504}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
        False}, CompressedData["
1:eJwt0gk0VlsbB3AkZEgTJXMX0SAV9w3lfcqQDJl5T4Mh5YbSXF4ZSsVFcg1X
hIyROTLkVkqUvnAvkkoJoSJTkbHy7aGz1tm/9ayz197/Z++juO+I9QE+Hh4e
XvRO4uHXI9XpJNV2k82mWrC9Fz92bKyMZ09GO42vgWz2couCd96NxezAw9kH
yu9VsysDlbLrBOrZP+ssxo+oNrMT7cWW+Zi3snW6nmlfPN7G1p1J0zNz7GK3
XXJ2tr/Qy/ZeIBfofLOPLZnwJt2jYZDdFlW/T2dqhL1HN4st7D3G7ug+L9M2
PsF2ubxnKvvUDLtHk9XKHfvJvj305+sMbV4Y2zZeKzrFB98vWy0L8JwL/C/z
Dn5pFwRRRaEKV0thWOzpOq/1kShIl1YyxlriEDkratf+fAH8naHjJym2CB6d
Nht8+WkxDBs77o2vkQAZ6aMNu1KWwo7B81tkfKXg9IPo/HYHaUiPvCGbvFEW
Gl3Lw53F5UHPYjYvvUoBYgZWLL46owj9IUbcUK3fYOtKjw6/I0pwtSbc8Fi2
Mgy6FOXu71YB/dmWhRxZVRiqsWz5UqkG8aH1sWHOq8HA0phR5lsLQxI10g/S
1aFhUP5I3goNSGvca8kd1QDv2wnrjWrWg+Xf4QXNrzeA6pmA1U7DG4GXOXbz
M78WvNZxVfZe/jsUy9il8WuwIPSnkXyk4SZw7dyUKLtbGw50x2lz6nXgjw+T
rVFbNoN7H+dkQ8EW8By4s1BIgQ1lZy47pBoDsLibM/V4t8Idn4GxNxVboWVe
85kFhdtgOK582iBDH4RVk/y48QagXB7IU3DFEMDo4IX3F4xg9wtzgaXc7XBm
/8YQUy9jKO77nGCatwMGvTIKTPtNQG1sT5Wpqhns50q0mLqZQ/LPhg+mGTuh
7ULQlOl7Cwi7KC+g8pclqNWeFVdZZwXuKelfFIqsIJtb91x6ozX0WY+WSpZa
QwX3fli7vA2EpAS7ZITaAFNrxfL8ZgORFqttr5vZwtOX/Mea0m2Bx/ldOP+M
LXTG9o+qb7ODqoZxhgmxg1T+OQ8vNNpBdHSPYaKwPQSteFJXYmAP3kVZVg3+
9tBlm7vXuMAeTCcL3Kvb7aEkofiUnpgDiCl8t16u6QAHMgw1xnc5QKVqhFjz
eQdwvOM8kZbqALPbN3SdqHKA5Jdz6gy6HMDnkcTmLTMOYJe/Ml9LggMacdpy
6us44FPlqbnegAOP+5NMNBkOiC9pdGZ5cWBJ9qu18wM4IKXXNd0TwQG55321
d1M48OB8u0RCAQecNZpcfe5xgLejpoh5xoG08Duzm15x4H1qpqFFNwdWlMWE
HRjiwL5ngU1npziQ+u7o0ih+Brq+Ou69Kc6AoqB5euVyBlykdftalBkQ+qTo
G6DOwK0SIfFVLAZY99IX2esxUFmtJxloyIBh3WupAjMG6ptPyrbZMGDTJq4o
sJuBtq4cpQ37GKgL61HgPcjAPS052cbDDOR3OEgln2AgOSRSwovLgF96uKiU
PwN77ofMqQlkQOflpWmvYAbiYyv4V4YxMGU3OL/jCgN7zzYaDkUyUJVy2/dH
DAMqT2Jvi8ah7yVevUHX0P7pRkt5kxiQKuDbuiCZAbc7lR7yqQzcfuQTo57O
QLe8/rK3GQws8hNJDMlkYGvbc3nWTQa8lol7hGUzcM3epKQjhwHjT0vmTecy
8I3bsXdJPgNpIjnF6gUM/Jhn83RpIQMcoe/tPLcYKBG4MdqHXFSavyCjiIFj
rmVrHYsZaFz4wGTZbQaqT4R8zEOWvbC5uLWEgWyWnGIrsmu3x0uzUpTzXFl4
NdIqg89Ap4wBYa8HpvHIapavzSTSj1d7t0M5A4MvjsSmIx1zMpuGkf/5t4tu
vsOA4PXjNlwk+77gtTLkmbeJnaNIrSPO2soVDIzyKkXZI4tiPvYHI1Na+ioK
kRFLBv58ifSzHXKYRbpoSQfK/4PuUdI4j41UmzjZ6oQ8FCnTzkUWrK7pjkZ+
eezZn4/UfRvOU40M+loo+QrZJNS8ZhDZ6pu1/SfyzYjvPvG7qM/91n4KSOVJ
DRd1pEeYuOFmZKHckKoJMmiD4wk7pKPRv/edkVq79IQOIbmaH1inkPfnX/nD
H8nTp3U1GCkpuHRRBHKt8uTlWKS+/mvB60jzCT2FDKRDbsamHKSLk7DVLeTO
t8d3lCJ1mTdb/0GqterrPEBaSPgaVyNP25bY1yKTogf21yFvPQ4t+RdZPaHK
34xsVau1eYG0zVcWeoVs1rh4rw1pWfL+aDvynWRZZgfSkxvytgs5+WbPoh7k
ufypzl7kvIDYwo/ISMuN/n1IJ9mYyX6kev/Y8QHkjzK7wUGkqfDQimFk/N4g
zgjywy25K19wH5aXwr4i3w5//nMU9xdhHTSGXDy3zu4b8l8ffeVxZMjI3TGs
Z9ON6xO47+II40mkRjT3KzY0LcdvCtlT9EZoGqlXJRqDLRReLjCDVLBd6Y2N
StLsx15vyN/+HZn7Q+UG9s7aFL4fyIt1bAuslXtHAlZOMOATNj3fauVPpKqt
khs2b3o8A7vK6OwrbFbkrMgsUqn9AhurdbjGHWv0gz8Gywk3rMSabRrqxEJ3
7Byee2jeFbYKdiS3YBs293+yTli3j5fPYk28uqKw675p5WAX+4ZWYdWDC1uw
xlEtH7GuSVPT2JjWQmFe5BNxt+XYCWOZVdiX13hZ2PKBD/rYq3r1ltjf5Pft
xhbOThzAbu4MP4rlnNbjYk+JDp/HRqYlh2IXfq+KJLVdTxypCwVSsNIb39/A
qpTfz8Wu140vwv7je7AMq1/JuottmBV4SGqx6WpsxfLBWuw61c464lG5/4h3
9jQTeRJeYPPeGbzCqt0fasNmJsS1Y92Sn3aQfdMnu7AfM1V7sLaJY73Yh5EP
P2LXBl/uwy6yEfiMHZc7N4Bt658axNZs0RjGFvzlNkLOpzvxC3asPuEr1rLs
2ig2Pzl+jJyLgOc37JbDm8exc1vEJrB3X1cQj3ccmCR5exdOYSVYyUTekDXT
2IG2CuL9sbUz2Cvz04hOqpLfsV2hp4iugy3EHgvNH9ju/EBil0gTscNd/id2
tt6JKK+RQmRHd1J9JGaxei4mVOMA4tMHOUQbVivxXQEvDx/+Dw8oE+fI7iBK
tBwi3l0TSnS5lEUUfFdDXD7zlrh22TciaInxYm/NVSQqtmoSIzONiXlDHGLt
7+7E9/5c4lBHEHEaYogCaanESyl5xDnJ5cTApEdEy8w6olxhC3GwvJ3or9RL
FI8cIKb8GCWeWDpNNFrPw4eVMhUg/rVThChkvYAYYCdB1D0pRRyPkiUWFSkS
Ty9RJuqcUSXOvl5NNE9TJyZ6rCf2b9Akmvr+Tsx9vIkoIq5LlBnZTFRv0iOy
i4EYt2Ub8ctTfaKJrSFxQ7wRzf1uO5H3tx3EueomxHnapkRRAzOin7w5cWia
6tS6k1geakGcz7Ykuo1Sk4KtiM+lrYnCt6iv1WyIWenU07K2xKjz1Pxe6tMd
dnTdRKrtEPUa2BNZF6kvaqknRBxofn3qVR+qWjG1pYN6ToxDXKNLLXWm6gVR
a3OpKc+o3D6qtRBD8ylSBXWpLrbUTe7U+f7UnigqfwZVqZRq8ITKaaF6vqf6
j1DFv1NTBHfRe1pMLZGhaqlQy9dRg1lUDpuqup0aY07lsaUe2kW97USd3k/d
6kGN86IOHacanqG2+lDd/KkT56m9F6nPg6lVodRV4dSoCOpMJPVbNHXkb+rn
q9SweOqaBGp9InXFdSo3mfpfCvVTKpUvnSqd8au+Qe37ZVMmNSKLan6TKpJN
zfqlfg6145dOudTOXzrnUZ/9cmM+NemX/weIA7I/
       "], {Developer`PackedArrayForm, CompressedData["
1:eJwl0wPXEAYYBeCvL9u2bdu2bdu2bdu2bdu2sVqtVqvV2p7O3nOe9wfce27i
Jh2rdAgSEBDw7ddzQQlBaMIRkShEJxZxSUBikpGSNKQnE1nJQW7yUZAiFKcU
ZalAZapRkzrUpxFNaUFr2tGRLnSnF30ZwGCGMZIxjGcSU5nBbOaxkCUsZxVr
2cBmtrGTPeznEEc5wWnOcZErXOcWd3nAY57xkje84wOf+PIrT37wL4GyDU4o
whKByEQjJnGITyKSkoLUpCMjWchOLvJSgMIUoyRlKE8lqlKD2tSjIU1oTiva
8qvwznSjJ33ozyCGMoLRjGMiU5jOLOaygMUsYyVrWM8mtrKD3ezjIEc4zinO
coHLXOMmd7jPI57ygte85T0f+cxXvvOTIIEBAcEISRjCE4moxCA28UhIEpKT
irRkIDPZyEke8lOIopSgNOWoSBWqU4u6NKAxzWhJG9rTia70oDf9GMgQhjOK
sUxgMtOYyRzms4ilrGA169jIFrazi70c4DDHOMkZznOJq9zgNvd4yBOe84rf
+J0/+JO/+Jt/Av8ff1BCEJpwRCQK0YlFXBKQmGSkJA3pyURWcpCbfBSkCMUp
RVkqUJlq1KQO9WlEU1rQmnZ0pAvd6UVfBjCYYYxkDOOZxFRmMJt5LGQJy1nF
WjawmW3sZA/7OcRRTnCac1zkCte5xV0e8JhnvOQN7/jAJ77wjR/8S2Aw+ycU
YYlAZKIRkzjEJxFJSUFq0pGRLGQnF3kpQGGKUZIylKcSValBberRkCY0pxVt
6UBnutGTPvRnEEMZwWjGMZEpTGcWc1nAYpaxkjWsZxNb2cFu9nGQIxznFGe5
wGWucZM73OcRT3nBa97yno985ivf+UmQ4PZPSMIQnkhEJQaxiUdCkpCcVKQl
A5nJRk7ykJ9CFKUEpSlHRapQnVrUpQGNaUZL2tCeTnSlB73px0CGMJxRjGUC
k5nGTOYwn0UsZQWrWcdGtrCdXezlAIc5xknOcJ5LXOUGt7nHQ57wnFf8BxjG
/90=
        "], CompressedData["
1:eJwtlWc8UG8Dhs0iMiOFCFll7+Q8BxmlMspIlFWytxAiMhLZQtl7ZK/Cec6x
kj2LKGST3ZLx/j+898fr0/3h+t33WQsnvfukJCQki5Qk/w8fWnTNaNGndgWQ
iD6MYD1ah6lmaY/I/sejIsc7uf7j7W7CSzeP1GHd+8uFDv/xz9/vvm2tWQEX
vb7pxlDWYZ3TFuI8NHzoYDicJ89ZAfrel9WavtViDN6BX/tY+NDxJO6LZrEr
4LXGQbveu1rsrII35snNh06N2hqOBawACSNSA52EWkyA1XdkWJUP9Qj8Qcmn
sQJob/94mc1Ri1GYUvwkMeND2SdWRitPrYCs54j6bHMNJi+1Yn7w+L8+Ub7i
pD+WQe6f6MkPljVYopfcVE8SH8pscbuCGl8GNiTkNvI0Ndh6+ylR5yo+NOy6
tUhHwjKQJhwY2GuqMXb+gZPiy3zoMr6gc115GYxcVnH9Rl+N5ZfUF6lyn0NP
Ue99cVhfAgMH44x2blXYjPKXc+X659CF0b+QMmMJ2Av9uXH2WyVGlbMZ5PP8
HNqtYKO9o7cEPGQtn7jqVWKj8ZV++c3nUNujv1nZqZYAFDuA490V2KOnpEw6
LPyodX/Iu4SoRdDclTpwdbccExn8UnDblh/9VMcaFX96EVjfF5QOly/HyGJs
20eb+FEqCz6DguIFcP29XV0GTRmW8FvQ9zO9ANq/lR/ioLwAXE/nGwjipdi4
jEmso5kAurD45+3zL/PAZ33AajuqBFu4FVSQXyaADnSPgTLveZDKeM82w7UY
889X+mXJIYj6vP3aOv9rDoibo3NGlEUY5U2p5vIQQVTpdqRam88cKNksJVYb
CrBPNvzHStcEUfJdpfwyijmwLR9HL/QiH1v7bsrpcUsIVRulqueMnwWR4I2M
n1ceZp6084GnXgj9pet/P0lwFhgFsL79+jgXe3HrV3XPKWH0qOeGdSX+HcQO
DMlUxuVgEzJ/0iK8hVFTklhthnvfwcGF7/oNTdlYSrGRmMfR82jUuW6Tkv4Z
sL3vdV41KQsjXMnHjWPOo1J2Qe/vXJ0Bh986HIqiM7E7WhaWHicvoB0kzLaq
XdNgPe3ac83cDKzGnKfkd/IFNDZGE8vXmwaPItlOJmelY8BjL5j+lAgqbs85
O/9tCpxz1//HwZuGVRL5pvPxIuhs/3cnd9cpcONaWup4+2usMjlzNPO4KJq0
VPx9hHoKDAqsfHsYnorZNiQluBSIoj0Ni1yztN8AS0QZoxV9CjYjLO5vjIih
Qa+b6PqYvwIT2tDc4KZX2N9w/MLrPjG0hsmYlERgEuSVUU6TRSVhjAEZ03Ki
4ih63WdYSW0CCF+kZuf2TcTYDd2tg13F0TYw3+7t8AWkXTQnWQ9KwEJHP5N1
VYujTgvr1z+kjQPtAjMuoax4LEpNdYv7pziKKHIZ3vk8BlgYk5TohuOwg+PH
eoY0JNBMWWWhoxOfwbLfWSuniVhsyS33smWSBJow0CSXvfIJBNcHre0dxGDt
Cq8v7nyXQP8N8axsUX4Cw3c6o8jkY7A3j3QH8kUkUXIamudzQqPg23WLXffg
aEzyzu21VHdJ1JJ3NCLKYASc0vTre93yEitIPpe3Ui+JqtSJBXFFDAMqhpvM
C6lR2JAJVWLZriQaq5ut9L19CCyS9sUrRUViz//9Pa1zQwoVdN1m4OoeBL5O
OnFHtF5gnMe7/nW8kUJPsZkzVX0ZAMF6R8/VC0dgxsNr2cpLUqhoAPvSs51+
cOtQIi1c8DmWY7VI911cGo1xVFvOZukHOvpVPBFoOOasKm7a6y6Nat4LZ3Xx
7QXDoQwvvZzCMJUhU22eGmlUym3BiOlLN/h8IMGRVBmKcTqIlu5uSqMJlCGD
02pdgFJ8ZzXlaCjWnFIrUaEkg/Y2NNF1KHYCh0Tp6rhLIZjmtNdWWpAMaj5U
3vxZpQNMSdBbkT1/hjU4hTlttcigVLrG147ebgNeN/X4+1aDsS3aq0nDBzIo
Q2p6X5BvC8BIDbxdLIKxzhMkzjbSsmj8mdt+1cU4MDH5eHFoMQj73Uyd3W8l
i9Lr0LcZfMRAy6eV5Iv+QRjV+vmNc9Gy6I8q3fdK2o2g2Z9PSOFsEJaZTmZx
hJBF7/1oJ/PrqAOpDlRJlfVPsYmUpZfaK7JoePSq8j2DKuDby14/bPkUu9TO
7i1IK4faLLq86FkrBXIXpAVnuZ9if9+ofSvjk0NfNMmGzV3LBaW8tiBmLRBT
5nad3pOWQ9moLrqn+ScD44eFLxa6ArEgU197LiU5lPnV6pHh3QCwaZylo1If
iGWe3Q7h/o8zWMh7U24EYDkyyvuXqwKxx2Wpn6kk5NBfMtb0aY/TMPPMTr8A
IhDTjb43oXhSDpW8eEbsg04RNnAt2aByORAToQ59nLIui0bKzalZEJVYIsea
3AmRpxg3RaTJZoMsanw5jlrXox5To54xb454in2hp1T97SGLGrT7vnW42oy1
SvBLDVIHYUkFXzKu8sqinScTtuj5CYxe5vd4U3EQ5k2az+eIy6DnD5kY5FXb
MHpBy2s5j4Kx4uPu2y3aMqj0BhnzUNAHLCrUSXTP4xlmvyArHTcvjSa9HrnW
c60Lu9ZeOufsFoKZKcTsdbtIo2vPPSmpFHqxa+EK8SzZodiRil/I8IYUmiVw
9HxXfj/mz5PzKIUhHKuSLnFU8pNCSx41+j08HMB8KN+ZKng+x9TDkhudSKTQ
pXQDlSt2Q5gMrfmuGMcLzNGFb+aTtySq/vHtXZH1YWzIqcLTjSkKEzXOAxIU
kqjOuQQHcuVRbFxEXeLs75eYzY/E02dCJVCmo7uGMoWfMC9H7aNTJ2OwoibZ
k6fJJNAix5j91vNjGJia1Z56GIv9y28ru/RSHE3hLnPX8B/HKuXu8R6WxGG+
XpOjmqziqEims+iFpS/YlG9AdY5gApYwW54XIyKGTj9zp+p0nsTklSn0Ly8n
Ykdjucs29ERRrgyrg6jOr1iq5+FFIuUV5uiRwSDsKIJOhbwddj0zhY1Xz9wN
TUjBitslDez9L6BJkWc82xamsO2CfF+xtdfYcZUsk5KK8+hayyQ9Rco0lqhB
LXFFIh3b06B4eWtCGD1/MeNhr/EMNsHg88F6NQPLnMrVKdwXQssiLpG0XviO
9caEtnc+ycIOflqyzQAh1N3+fEz5wnds0oIqfp0yBxuYWGGs8xFEG3YQx+LK
WczQdnsruT8Xs5EfSfQvFUD/pdOey46ew44MhpTKbeVjjjeHVlYP+NHAwdv0
7Ibz2OoZJU528iLs9DezjJUr/ChZlPfoQ7EFzI8i+OakSwl2uu7UlanIc2iB
zCeDUY5FzLWO60K9YRmGNBdPFa3xoZkp5/bENxex4hSyzXimCuxWmJzp8BU+
lOFzs43W2BLmxWGbtF1fiZUbfBYfSONFTebe53R8XsaqfsnqN5dVY11D/9b9
6XlRl44S0nfvVzANiSbVt9G12MJj0i/XH/OgKKLyiq56FXvBeWxuvLUe490N
3m6ZPotOxzozv2r7gV1xNx47bv4ee0x8SH9scRYddT8iKVW7hk1rB8xOjDRh
v3jb0xi+caPLwYJfOJvWsdG/b869MoJYXHmxHachN7r49rH2MacNDDc/pDlB
SWAUGj7Dbe1cqBi5S63H5gZWcNK2NTK9BatJulq19ukMyl6h9nToySZWFvWD
dsSrDdtQfCBCPs2JtnjQaJBybGGH9A8/OL7pwJQvPkiUnuZAAyvvx176sIWZ
3HRTief4iKVk1Ds1H+dA3xUu8Mnf28bA/Ud55Q+7MSWyzmx3KXaUN7XFopN8
B+tqlJqRpOzD+LmFPWp1T6NWJbTWfXU72Hcu8ybxw37suw3zVLf1KZS3pKzC
2e8nJpWTFjxcPojpJP+yWnBnQ/ca4mW5DX9hgWnmFOFpw9jsBeoyNq+TKKXc
c640jd/YcqK+6em+UUzQpeT2TWdW1Lf3YHJD9w/mrC5noKg5ht0vqh3FklnQ
3WLlDFHZv1hDFeXLBbsvWORbtIbr/Qm064yuOBTZxXIklUxXmiYxEmqKPzp7
zGg+fsbf6Ni///bLzJmj6xvG+kPI7owcM3p+rwIc//UPw+5olLLtTmHXm77v
sdkxoZjp5s2UzT3sDpl6adfpGYxVdLaxO4kRbc+IDE/b38eiKE+fclD7jo0J
SDXjjQzobFOyddLpQyzud0VE3qNZLIkqmGK3kh69siE86sJHAp84zanmlc1h
hV3pVmdk6VBWzd4bOrkksM95hLhRPo+JnSiLuVZKi3L0k5fSXSCFmpr3REZq
FrCoburQ3ZM0qDOVPdlgPSmsKSLvqm1ZxPqLBiqSPahRUu/tvgktMqg4yjg3
MLWEKX/quxbCToVGcD1bmGkng39+FNp//8/rdcY8tRv1R9Bu/grqInVyaGD7
IhisrmCPadjc47Qo0SzK2viBLnLod0PONknoB6Z+58/LhbMUaPxootO9ixTw
6lzUp3G9Nex15HXO0k0yVKuJQi6rlAIaeSl54dXrmELoRwu1LVI0l67mZyED
JRQV1CORDN/Amm+LRR1ZI0FT7zdSaXpRQrOx6JXfdzaxu/ZPbt3vPPxvOUwX
fOcooYFri7XxvS2MZ2CMGGc+ANZfGorXVI7AoOpIGRnzbSz4XoPlN4M9IE7/
XHwu9wjcMOMrVHm9g3mN9/Dvf90FdSxfolT3j8A9z2v42S8/sdyDmagb5n9B
lxJ5gqbxUagn7qFQbfobG6gsrrSf/A3q19N6pZqPwnG2qOPr8n8xdUmmzkev
f4E6TimXTyxUUPVjgPYM4z/sT+bahWaDnwBn4ujTdqeCN246Uz/X3sdG9QL9
xml2QEdS0AHXFyrYmmV4yZeKBH66fMGyjnQbrL35EtUjRQ2bfoaykZmSwu59
CqWm7U0gIaf2A42nhpL+DZvzv8kgT1zPYhzDJmgaKVW6s0IN96o6nPljKKD5
1sMTV4Q3wFPqnuPnrx6DAT8m2z54H4Gr3X7GfIFrwJEtzkup8hi01th8p/aB
CrrLd3cn/V0F2ikRnhEMNFAqL/6tPhMNjC18vGtvvwKkdmwk/zyigTTW4eR0
fceh85mJU0xjS2CBTUr27jINPPGTip54yQCz3iaFnIpdBN5lZeRi2rQwwzBt
uoWfCfqe1Fe6qb4Aci9bJbA100JnByanWpoTsF3JIgX5OQfkP/kqcioch/ri
JMEfbrFCP9UohW/fZ4FSvM4InnscsmYtVMgHs8Hqo1FDJr3fgeap/DZPTjpI
fqk6v5SDHcKDcGqN6hnAL+AWY5VFB2W8K6tzFM9Amp8+otp902CLwsh65SQ9
ZLYiFGAKNzyPOJG2zk8Bic97jZ7J9PDtmbSQCVMeGPWXSi9s5xu4gtd8KDzB
ABtW+1hf+fDBOndavQS3r0A5thtY3mKAf0h5cr748UP1ZLNbDqsTYJdkX+51
CgPE/8HqZ18FIefxMMqHd7+A1XSEImqRAUrVyEafqz0PCzvWXbJOjQOuy5Sv
a0QYIZvBt30VO1FoF8pO7tn3GWyZsV/+6s0IdVPpYrl7xeFnZyoj3SefQI6J
19atXkYYFiPFd6tGElKQPmk1sB8FqB2VgMkpJmgFTrbefyYNh68L1eTdGgHU
yRSRK3ZM0LXOZ+F+viyU0LdKb5EbBq3Gx7qtOpjgO9mSs1oSClAkr0JH+MYQ
UNsxd2lgY4bzbuQGZq8VIVmA0RkPs0HgV0K/yuvKDP2XDhdeuSEwQyvhlZzj
ANgfD+hkH2GGX+vxd5+XUGjL/WFMIL8fnBRIUjkvcgLerOeK8H6mAkXKg9zJ
G/rAU/qGtLnIE9AIMbTVf3gZktuWUPex94L+42EFY39OQPWz+Q+lc9UhFmW1
Gd/RDYJf3dNiNmKBehsPKzk6NOHQKdl3rA5dYJtdnS8BssDlJdt3NepakMLv
ya1Kmo/gjahS1RFpVniq/Z9K6KUbUEszd0188QO4ZGz9bjKFFdYAZ237UB04
+ZnESBbrAGqE/8NsmpPQ0P7HaU5RPch6989N2eh28MqzOuJU2ElYwfhJzojn
FqzA8t5NJLQBc5axnCO/T8KxxPXbKof68Db6g+l9YisIlXPsjnVmgzWMYy/m
LxjBXh+XFcPYFqAUUPM59RcbfLCz8ZEfGsP5F83I9DsCvLMecDrjeAoWlqqP
Dkubwp6IPyJK33CgpDSu/W/jFAw/rrOcT20GuT8UeZMdQjCewCglGngaCl1h
o7Z5bw6N27LGZdUg6IlpieohZYd9GVlCArctYUOBTl84PQa4u7R4o6LYoc+n
XDLhS/fh03DtiqwXTYA7XDUqQogDfqOK7xDztIahJhSz+VqNoHLHvedTFQek
ZRysPZZoA6PVYm9do3gP1rhKR9i0OKHNs7XSEAZ7eK78e9RmTQNIjtC49mKT
E1pGPXTC9xxhZ1EbFZpRDzL+HtXlCjkDQ6oP4YPvzvBP2Df8X3AduDoScjlM
kAsyL1LsFAe5wiMV8qdTLWsBp4o2l9AXLkgfbXYCcXSHw2a8z4+41YBJs691
N5W44axRl3Wgiie068nnivOrBqLsvTUe8dywznSiV9TKCz455qjU+bQK6BTl
LCE73LB0mxNMzftAZ7miPbbKSlDY9/J915WzsMTTfNnrmh9US2XY45+sACNa
dScU889CvT+JFxNoAqCKTrJ0BHkFoM7Qo54/zgNPXEtKvlQeCAPa4ld0bpSD
v22KDWk2PHBZVP7HqnIQfCS0cr5RuAzcA14URA8PVCp7IvCK5Rm0OVA3Li8v
Ba9no09jiryQ0ppfbUwxFF5pm/B67VEChOlin1Cl8cKnNgGPra6EwxfyanxH
pYuB0o/AqOvUfPCjfq45ZWkElMtH6/VWCoGMHwcTyxM+WD7c3WDoGwWXLNKm
RccKgNLDMY47i3xQz7M2tCkhGp7MZlk0xvOB6vHZx3J3zsEnqvrLLudiIWv/
muf17Dwwcvai2NWxcxB8Gck1/BcH9+WeZiRW5wIpRdkHJFf54Vee+7NXGhOg
nddZv3mYAx5s7c5stvJDHe72Jrv2JMiuk2bc1pENfmbURI9pCUBLO9fMIxdS
YLKEyAH8nQXkw+7GPW4VgAGnRt1NPF9D4347OkveLDC2kf+RSlMQfmon6zrB
nQ6/y9afV72aCfhKXk4ZfRaEu5yIhy93JnRa8H85FZ8BIjN/btreFoIXBE3s
xdOzYOhLpS/36tLBaorkPO+8EJRtrrWjMsmB1PV9LiWX0sBwz91TPgHCUFfW
AfF9kAcnkKMtQiRvgIBOQFX4sfOwRnD3+/jtArihLvHjoDEV6F6ssKfKPA/F
OzvCzqcVwQctZBSRrikgrVzi4XH1C7Axr7M4QqMUepv3VijfTQYMQjWfK8Yu
wGWrkWdzg2XQn5rtHu/lV0C9tIou1UcEntLdmxu2rIDmhvzX83mTwKB+vgj5
eVF4tF9MmYS7CiqzX+E1lkwEJ+M/X/r6QRTiI2QBuR+qYfHmtOaOYgIwD5yg
nXEXg8G8xYYrNbWQ/41S7B6IB3nhbgx1bOJQmyxuafBPPaypqxURdIgD/VML
5qwO4jCWal7WkOc9fB0X83cyIRbc0KZpIO8Uh09PhpBI5jbBo9Jxp6sbYoDC
eEIXISIBT773s8e0IETbDJwcSGMAi1G/wUaoBFSW8amzqsbhWkPiXaAWDXS7
Gd6JLEtAtNElRcSwBTqsUPemUL8EFDE6f4f0JWFOu+yUl0ob5HXLuWHSEQm6
ipjDJWslYcLzRnVttg7IqSx0StP/BZCLy/Y/zyUFEd0P1r0KndCTWsqjUSQC
DBANb0RjpeB9508+OQ1dcHef2Jllfg7YNbZbBP5KQX3rBPlEzl4o3s2UzLgT
Bl7HnZDQtpGGP/6YTO259MONU2x71T2hwDOfYvvCrDREi0oLIpgGoVW2PSvP
pxAgoO3vK6EnAz07xCf/ZgzBUq3pBd0vz4CIlBkv2UcZmBF7t9DFaQQ2xz7u
+DAWDKxDO2fR67Jww9Fi913kJ9he1vaBjCwYhGXU3+okZCGd8HKve/wYnCEX
vZR3Lgg0n1wwbleRg0/WsdnHa1/go76dn+qXnwIlwJ37s1cODud70t8s/wqd
Vm+u2oQGgn/FZxqeXpOHCHtZXVvhFJQTs1cIaw8ANpWn5ORH5GGF3em0KIkZ
yFtFo6BKGgAOOHRNN20VoHzUB5vPe98hF1ETOlrnD1Ky9VJoNxVg6/ij4kvV
c/C8dlcuxwM/YPtuVZoh6CI0vdezyFK5ACMoAwWraH1B9O7ev188inDaqq2k
9ugydIkpnedd8QFJshOXpSoVoa7gayNf1VX4j9FU1LbFGzwfoxrgu3EJLlMe
mZweX4Mfr2ZS/oz3AnhlPc/in0swJ1yLU2ZrA3oOWv41TXoEcEOy2zMxSlCt
Fq2+8GALZts+4DSL9wTOSZ3P7eURaJSgYFDLsgPpD3TCfCM8gMwvJZmONQTm
9Mu8cqX/BcXFjFlNS93B76HlWf5YALmwrkLj7d/w+WdRrqcf3UDUEjclCQ8K
LQTMT9bx7UKtngfPfGdcwUS6QrtJEAqrOAPmwmv3oFKJ/pl5Lldg9y1v4NU4
CqX9FIoOzx/CvynPRIRvu4COzH6ZKAVl2HpQanKCnBSX7I96sBDpDIqSxxeC
M5Wh8VD7yYm3ZPhuS57OSLsT0D2eUl5yoAxXmqxyZDUpcDj72DHJ1hEYm6Bj
TFYqsJVdS+wI7xF8bd3one0RBzDk+liRZUgFfuUenTTQpsLVpmudsr/YAcma
ivYoWVV4ZOJGeq3lMfzXDYoevyJbcGZ3umo4SxVWhlypE+mhxXnu/Hth5WoD
hpkUL5mcugwfzH0RTMygx92m6xNe2j8E8+5nfeKDLsPsmpx+F2FG/LtpRfs5
c2sw6/uoUvz3ZZjQ+NR+/j0T3vg+wzRH+wEYveLDhHmoQV815i/SsSfwC6FO
7sK294HgpTf6wgtqcNZ22efGLVZcR+usbPcTKzDTdGidaqEOtb3+lF29y4bT
DEafOBltCbwEuk+/X1KHicJkDi34afy4jzHnTrsFKMbuJo1YaECtbI7af8c4
ccMadbfQv+aguD4kN2teA64HSDVnVXDhK42ldfYC5oAZtwpd8NSEnxLJg7Ue
nMXxI+ZsnI/MwPg9mS8yfzRhoD3FhfoZHryV9c1T1pB7ILfwlch68BXY+4lW
dyKVD++t/e3fzHIXHI0b4Px95ir05PgrG5fBj89uz6imT5kAC1L36SOFV+Fb
o391PC8F8QeKvyiWcu6AdmfpZ+pACzYPRHCkdgvjnj1Cb0gtjIFE4jTTu+9a
8Hhc4/sr9iL4i9fvtw71bgP4sdSd59E1eI5BIEh8XQxfC5rRkUOMQDfdxdkX
J6/DvmmEVs9eAo9O+ZXOzWsIXHfbj3B3XIelV+guTHBL4ZMZ79KeyRgAR9TA
+anVDTi1/M2vmpDGLWzo/o6p6IPP/B4aHfTaEErNsInly+LbVIEa+VdvAYcf
abwXu7ShhzOunfhVHmc17aLR87kJMtkRj0wFHRi20qhfvX8RL6mw+xWRqwdG
/FSH6BJ0oGtu8AsbNyWcrykA+dGlC0L3DMvP/NWBUlIvfjsJozgbwzdOlEUX
dBX4Kw/q6UL1jeMTVhHK+OVID4m3xjrAl4yuwLFaFw4cCj58zaeKg8yUg3o5
bTDk4+CpwqUHp0A2+Si5Gi7ovglu/74OaJhMHY4+0YM/LJ+kxfSq4+d4mJ3P
lV8DG0KBdUoLepCqw0734Ywm/juG9ri/uRZQOXQ2v3r7JuRqInRkdbXw4NM/
mV9oXgW3qptTwrGbMPDJbf/7udfx7hMMqm+ErgCmDpfJLtFbUEtmxurKBR08
SOppyzkKTTDBKSITVXALOorgVH+hLr5AiTa2HtcA7YyNOXUs+hB4UevevXwT
X3F/H87LpA4Quc7iJy/0ISpv/NSHUh9PDsyM6WBQA3c7eXd86QwgQ5TT93vM
hvj7ff/iavnLoNO2kosqyADynT9/ve/YbTyNiCI7aqIKxtyotz+RGsK1LslU
R707eOwF7ORNHxWwYaLjkvbCENrlCLIM7pviZwar7w42KoPXwze2j1EbQZ4v
XWco1M1waJu8oPEPBb9f3rnvEG0ELTRZT8nh5ngF6R9nfRkUzIUz7cfz3YZ6
H0CRgp8l/i7jFrvKGQD0OfUY7ApvQwqmm181+e/j1OHpfK0flcDJ3G39HQVj
OLfGQXKU2RrPXLhUEeF0CVAKnxbj+mwMaeRwl783bfBrF0IHDrQUAWPXD9WN
+3fgy1de29d97fBSb+N3ijwXAa1FVSJCYgL786qtYvcc8FHeS14Vm/LgY4N6
36lCE+ibvB9w5j8Zj7lOHPzZlAMBNfXCgagpvF5+vO7XFxe8alxjoGdVFjBn
sXoqzZnCXK/OjbXHbniTecZg+bQMaBeK/xaYfBd+i5cc+W3hgYfbtdJbkcqA
saq7aucU78Erc8dGFWUe4aOPSY/pcEiDr8dffSNfuQfLyn2t6nS98V/HmTQp
JaVApVS+1Xt9M/jy8VWDkI+P8eoa7hp1B0kQWF7wirzEDFoaU783FvTHbZVq
ZA1zJMByj7POLLU5fL2GPr3uFoAbd9ZRj4yKA2jw2zDN2Rz2PwzOf0D3FE9D
85iVhcWBUvxO0Ptuc0hCpsS0mxSEb71wYCbZEQXfc3jsdsQtoKBySY2Y2TP8
kw6LqVeECPicx+qZnmYB4/2SyLQ9Q3G52wIa1SYXgIKnhtsvEktodi3Rq9gj
HGcUC9P0EzgPulNj0Z92lnC3wwR/0B6Blx4d/HdpRQjIvT00op62hIdH6udu
+0bhgb1XqvOmBUH2/u0ByqtWUGAx6cTd59F4iDCP3sNBAfBTMjoXNFpBVvFt
aVuaWDwtoXV1v5EfDKhIbV1SuA9DWXn8ZHrj8M8Lw3nkw+fAwxb1Ud3C+3BF
aH2l2y8BrymV5WOe5wNWWHCjKu8DSKJJW03nmoQzFCRW1m/xgi46luNVBQ+g
n4Qw0fA+GT+YUk424ucFKWxfGe9wW0PHJz/03FZTcfEwCdU0fR5wpMIl7HmW
NQT/aPfMPNNwsYUMGb6As+AD1/2VffGH8JSjVUNmXQYey1RUNN7NDQ54Mhga
yx9C06jC+m+8WbjgFH0txsIN4p4Jp9Yp2kCzCs1uuo/ZuGZifeFO9Rnw1/vV
/schG7ijebJPuz4Xl+9daLHy4QTywkKc501s4YiAMfEsJh9POYyl51HgADdp
M6eeb9jCUCkhWtLaQvxso9r96I3TwERyu3421g7KTrassMuX4Gw/x3tSJ06B
n1F7XL589rCcNU99Ou0tbh8bvdZOsAGvq4rhM4Q9lP3d/KCuqhz/LL3XE5Z1
EjQrWkdKOztAaVu2+p5blTiyldfhUs4K/m69T8+icYTyLGIGvLNVuANpA49U
AwvgaNNiaap2hCsNPgx7lTX4t7Lz9bcaT4CGDZP9VgcnyCb2uHyovw7vjfpV
u7XADH657G+OUTtDZ35r0tefGvC3PvcZaeiZQYLlDs5p5QwvZS2UzIk34pUj
T8ylJZhAd+mn1el2Z5hJGvmiZ6MZ/7WWUjrtyQha3j1Nc+dygcxi78vMOiEe
lhdnm1TPALKvtwwNPHGBo8aqepvaBH6xMF19a4UeiIQJ6KksuUCL37btgqda
8T4bryeUuXTgZeYLhQENV5jxYpphtbcN32eu+MpjeBwk/nTWrXjrCn05Cyyu
fezAf5K8FSkgpQVbM8xRylxuUD+J8ZUyx0d80sZK89PMMeDiMSkmHewGD/xu
fN+81Y3fU7WSXGmiBr3vvT8c3XKDD5qGWRgWe/FHwyVp+rFUQEIhfFfS1h0W
zMgaDf3sx/O8ZwyrE4+CHgWS8d8j7nAzy++ajPUgriMfWF6XcATsdNiKyGl5
wHV0UuMm8zDOR/VzcCaKEnz8/uBbQJcHxFqC/vpRjeJms9ZlXJUUwJTG4Xck
4gl1R8YeGC5+wsXzGZ0K+8lB/Ffjew3vPaGHhWyT74lx/M7t1CimZTLwnprl
sPTyIziZsK4Ukj6Bq4kcDFkKkoGVN1qqgdgjaHdFhOcb3Te8U7XkVYIFKfAy
imk7q+YFzd2PHxZuTOHp2d86NV6RABfNeSXDT16wl3SbOSRpBrf61pJWM3GI
UFC95Htk7A1Xtd/eeXBhFhe1PJOTHniAUHlwU3MteUMxGc6iXNJ5/GWGO1Pu
mX0k8QrLA5lnPtC5oGxpm38RvzgZet5n5x/y8sLlxxKMj2EcpZjgvPQyvnL/
lcuvll2kXMpg1bfwMTwcbPH2TFzFpbksyUJe/EVkRa8d49LxhVZu9XqUZut4
F+W/1dWQP8gHeZrI6DlfyHBNVCuNchOn7bXQJx7/RrbLjqrwh/nBu/5Kh2Ex
W7jMioV/sO0vpNe5PezYRX/I4fCs5sBsB49336wgefYTsXv6iSlhzB9uXT1W
jHH8wkkpIJKSsoN0Tk0eEQh9AofAZztarj944Iir3reibWTGPIMtjCcAlrnY
V7J47+LG3RpKgdNbiHvlaZmKRwGwlcdXIaRhD8+bF1wcY95C0jW8tA2HA+A0
6Y+dZP1DXJHK+dEz5U2E6iy1Zq1CIIzZc0oYlCAlOLlnRMeiN5AX9ohnRnwg
9B6ndJIvICOuH+R6DNevI0HqjJzhvwMhuc2rtzzGFISHt+QhrrGGZBY8csYt
n0L+rpJJRoMjBCq/craZ8Qcytgjk+lufwuH2N4I2l6iI3atNDGdHVpBJ/vVy
a9EgWO/uRcbgfIz4+uYNk27MMrL5knx0PTMIpn18Q0yQHyee+ZPp6gYuIUvL
9R6R1MFQxTBB/s1jeuK2qHNIqN0i0rDmf1vDJxj+EU48MXeekfCr3B62115A
uAqEP7z5GQzbC9oaHT4zET+H1UM7zOYRioC/bxWtnsH8V7ssmOsJopUufvO4
wxxyqOZgGTfxDNLan4q6coOVEByqgZ1us8jVMxxcwCwETlqv3Nz0YSOqpFIr
rLO+I03zovcNRkNgVe/nT+svTxMS46N90d0ziNCv2/l9BqEwIf+RcP5fDmKj
9LHW5OY0kvisfdDseygcZayOe9/NRejdNG4WuDiNnHYYaXY1D4OuXsfonqNn
idr92svh/lPIV2tbyZTlMFioP1TaOMBD1Fw9E3/d7xvy6vOD0qKAcBg8KvPa
NJ+PyOhScli/+BXh0rukonz0OSyL9nhLZcNP+PNSLVZvTiAKaxE0pcnPIS0n
n6yIqyCh+DNe8iDjC/J9yY19WiECRgnE08oMCxNCwnml/CHjyP1tkrKXnRFQ
ZNI9VZtDhCjWNxO6en8M0R/VPzl1/wXcdRWNV8bFCLm/Vg4TSp8RxuXp0wsM
kbArj7R82F6CSO/iqK5U+4Qsvg79fbUoEtpf3tuWWJQkzr+y3UA1RxEZuTcc
53WjoPFk5eMv6dLEL/FDdlq1EeRp64QWPPoSCgh8/RGYJUsoNy2Fa9sNI2nt
qSaBxS9hk/rhxSsv5Ynq6pGajRdDyA3+Pz+HRKNhdNXXW5YfLxJrH6PKggoH
kZccabFXoqOhosLekbkHSoRQYP057+UBRGSfMKhciIav5w+X9ucBIfMvssdU
YABhXRMy+KgeAzdd736weaBM/JtU3h6814+Ytb/IH3kbAzvphL2T2FQJ9gTt
Hw+d+5DXRIghP20sNAxt7dStv0yEMwnFUp/uRcovzQoUu8RCx8AZY64UdULS
iy1/+n038u+Qjrl5KhZeHGLYZevVJITUgkyaE7oQXS+KUZPLcTCQdMGQffkq
UdCqkWZk8xEpyuNNbiqPg2GT6LPNO9eJA/xr2hnZTiSgkLdGVyAeRjP00qpw
6BAqO0+Xj0l/QLjozyUXx8TDtAF9YtdHl9jL41P0vtCBLJ87tn2XMgGSb1rZ
uzDeJNqvrGcvnWlHop5R0/0KSoChf1z1L/64Rby6cSnL+1IbEkjj9uTJzwSY
OxWV3lVtQEyNlh+R129FVrUU2ShcEuGF/eKU1lYjYkxyIa76YQvi15TcJvgn
Ee40O1R8EL1DFMYZix7NIpCSrWd0d12SIJ0kwv7c35QYenXcgesTjlCy0XEq
/kyC7eGixy6wmhHcXmkjKUdx5E4I8/XAZ6/gZ9aJ6ch8c+JBWkij5m2IoB62
nAtHkmFC+p+caQFLom0layfwBobQON/8VxKXDBclvC5fnbMiOJ7KaxvPNCEq
qTxvKkVS4LaFxGrB2gMiyZmvza28EWmmGE8drUuB7UrWDlPTD4lJPLXlmNd7
BEuPtOS6kQoXXEsZnfjsCBHjjuJQ+XdIW/BRpsitVKjo9CO7oNOBGMut0Dt7
oQEJ7pHyOhLyGp74en3ruJAzoWFC1k9xuh7ZXEos9eR/A7uyeed7M1wINbd3
7KWkdcgD6h/WJKNv4FkF9pc5Rm7E3Q6DPyKstYga1bU8Z7c0OMyyzvVx353Y
Do5eLT5Xg8g7jy7XnUmHTpnsCl/nPAm74fegUqwayZNMGOMcT4ftGzQtome9
Cb69ijxG8yrE82pODptyBuw+4JBQuPyYcOSSsKeJqkSW6Piinr3OgMcuR9BL
N/sRV5+v8CvUViAfJj5LRJJkQiNrJQ9+vQBCd8zq2A+SCuTEqnvgZeNMaChO
c9qpJpDgNF672qZRjoReNe/4+j4Txp9gchLVDSLK/nw63X+iDFlbL0sq4M+C
8z6DQeeknhFfYjJXi0ZLkRExyxqnkCy4uivlk0USSkgKPkiHMSVIexuVeNZa
FhzpGFn3PBlOtJLzPHNTK0Y2x+WYs82yYfLmpEtAeARheT3W4oZoETLVwvp5
pj0bCmsYL29MRRIPHxNJ8oyFiPffwSQu2RxI9TA4Y1ArmnhhcKcr/0c+IirM
azxclgMLrl87bjMTQ2RH8je9+5OHhL//UL3HkQufif3VabCOI6JsEJekg1xk
3mTBvykuFzZOJgYtCicQ/oGXglsPcpBHPBJ3ilnyoIrV32EqxSSisdkga1Ig
BxGpVP8o9TwPao07CjdIJxPudwqZrK5lI5yLN9J2qfL/+51Xu+3+qUTE8MOb
P+yykB89431lcfmw+KFQXduFNGKtp+3u3bJMZMZrYfYkQwHMOCXT1nc3g+D4
uIt0r2Ug5vXLz52SCiBV0P4Nxy+ZRBbSETAmlIHwpvMtBZ0vhOzXl0V/vsom
lvW9/Pqo0hFReanhm+WF8E6JV3iUai6R1e7pNV37Bql90eDejxbBjZTo0G2J
fKJMJeznZdPXSOrcw1PzX4tg5+nMpnz3QoKCy4J182IqwmfFiZTZF8OVK6YM
7WnFhDULKHFiSkF4XuhTrB8pgT/EIhe2ud8S9y2Ch8W/v0JqKxj2K8tKIC2/
nbJeWDnBkFFd7TabhBwK9scwaJTC5NPpvyU3Kojb54yXrk4lImRfq40aV0rh
34N7TZdjqgi3Czel5EcTkOaXulYL6W/hWGT8rId3DSEfn/23+lc8MshznuOJ
chkc3J3NXrpWR5hYhos5M8UjWSZ3BLQ2yyAnT8VUnm0D8Uqyk/6fYBxCRcWK
DhiVQ5fT4utts++JP2uZPZNWscigxZkMprJyeJ723csd1WaCZ+mjYvzrGAQm
FZAs0VbAjQHH7P5ASMQYKAo19UUjzAohp+PdKmCRiXNoHidBtF2xYSzijUbK
9JnsCvsqYFZ0aeB+fgtx2sFG6ctCFNKpVvptVKoSMpxMtz90biP+nUJP3A+I
RKqed390yayEgq/CqDdCOwh1gszBUe8FYnT/8RhGXgVTo2N3+MM6iXO7kl+P
nYlAaPeP0VY6VsGQoykqrWNdxPdCdiJnJhzZ0JBorf5eBfl1LNtSo3uJvU6a
noqxMCT3mKRo/rVquCjIr/s7vp+g0huLZe8KRcL/2EkMNVfDAyWae/6sg8Ql
we22u7UhiLxyeU+TYg10zNh92TI2RPwPPBDSQw==
        "]}, {Automatic}],
      Editable->False,
      SelectWithContents->True,
      Selectable->False]}], ",", 
    RowBox[{"x3", "\[Rule]", 
     InterpretationBox[
      RowBox[{
       TagBox["InterpolatingFunction",
        "SummaryHead"], "[", 
       DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
        "Ready"}, 
        TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
                PaneBox[
                 ButtonBox[
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEBitmaps", "SquarePlusIconMedium"]], 
                  ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                  None, Evaluator -> Automatic, Method -> "Preemptive"], 
                 Alignment -> {Center, Center}, ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAz9UQ83NFvT48CrMyAAAkwIoOSRlb
2fo/JFeeE12vJsC/cME+bfoLQFVRbyghNCnAo5j0Y6PIFECvMl92z0grwIxr
J0jxcRtADZEWZu4fLcCuHxZa5FUhQE86ZxnU7y7AWT/bhRa1JEBsUd6riT0w
wHdfiXWNXChAaue4kdoBMcDo+Ab19PIrQPxl+eOQsjHAHEhH6qJLL0AH/I9l
gUoywOFLuNFKdjFAKg6hjWriMsCXTi5p5yczQAsl5AQVZTPA9g2MSPzQNED4
nNkabtszwI5N3okznjZAyzSeCJRRNMAH6BEGjkw4QDJcP0+1tjTAuwI65Aof
OkBHL8Q94xo1wBnaSQoA6TtAJKdpsxp0NcBYDDtrGJQ9QHg0MIN6vzXA0L4g
LlNjP0CDI+Sy/Ag2wBXm85XYiUBA/P/nmRhGNsDfrNHFGHRBQAWh/O1cgDbA
/VGjGRVaQkAMdaRtuLE2wIyk5QqjMENAjJgpv+bYNsA4NyItQhlEQG2lsOcG
/DbAVXfP7HLyRECt9RTJAxY3wMaVcNBfx0VAusZ3PS8pN8BU9AvlXa5GQNwM
gQ77NjfAUwAYl+2FR0DeyLARUz03wG9MHnqOb0hAJY5yKBs9N8DgdhiB61RJ
QIQayzu4NTfAwU6DJdoqSkBskfToaSg3wL9m6PrZEktA4M180fMSN8AuLL5t
a+tLQEkwbMRE+DbA8s+HBLm/TEDkG4z80Nc2wNKzS8wXpk1Ag/UB0XatNsAj
RYAxCH1OQAMFQFUlfzbAkRavxwlmT0DdjdjnX0U2wLhKp33OH1BAY1bNdywI
NsBS+XApdopQQAneC+oyxTXA+8e3bSb+UEDtP3dOhXQ1wFzttoAfalFAPilx
dnAhNcDLMjMsId9RQFi9YPSZvjTAZWep6QBSUkDQgG+jRlQ0wLfy13UpvVJA
9OATcWboM8AYnoOaWjFTQK4h36xxaTPAMaDnjdSdU0A3KzNI/egywHSRRZMs
CFRA/+n3UiRhMsDGoiAxjXtUQHkWLNbTwTHA0Aq0nTbnVEBcQTD3CSExwOmS
xKLoW1VAZcqPUj1kMMAsCs+5eM5VQF8CkOwUNS/AJ9iRn1E5VkCvaYPb15st
wDHG0R0zrVZAhiPxzG+2K8DzCspqXRlXQASV9QA5wynAxG8/UJCOV0CWRoAa
UGgnwL/DrkehAVhAcKpOWqXGJMBybtYN+2xYQBR9jLvz6iHANDl7bF3hWEAk
Ie8AUDMcwK5a2JkITllAFEG+rMpDEsCgUAn7AbxZQFVR4ietSDW/89G3Tg==

                    "]]}, 
                    Annotation[#, 
                    "Charting`Private`Tag$36741#1"]& ]}}, {}, {}}, {
                 DisplayFunction -> Identity, Ticks -> {Automatic, Automatic},
                   AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                  GridLines -> {None, None}, DisplayFunction -> Identity, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                  All, DisplayFunction -> Identity, AspectRatio -> 1, 
                  Axes -> {False, False}, AxesLabel -> {None, None}, 
                  AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                  Method -> {
                   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                  PlotRange -> {{0., 
                   102.93762263160029`}, {-23.23954878393203, 0.}}, 
                  PlotRangeClipping -> True, PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                GridBox[{{
                   RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "102.93762263160029`"}], "}"}], "}"}],
                     "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {
                  "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                 BaseStyle -> {
                  ShowStringCharacters -> False, NumberMarks -> False, 
                   PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
              GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              BaselinePosition -> {1, 1}], True -> GridBox[{{
                PaneBox[
                 ButtonBox[
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEBitmaps", "SquareMinusIconMedium"]], 
                  ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                  None, Evaluator -> Automatic, Method -> "Preemptive"], 
                 Alignment -> {Center, Center}, ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAz9UQ83NFvT48CrMyAAAkwIoOSRlb
2fo/JFeeE12vJsC/cME+bfoLQFVRbyghNCnAo5j0Y6PIFECvMl92z0grwIxr
J0jxcRtADZEWZu4fLcCuHxZa5FUhQE86ZxnU7y7AWT/bhRa1JEBsUd6riT0w
wHdfiXWNXChAaue4kdoBMcDo+Ab19PIrQPxl+eOQsjHAHEhH6qJLL0AH/I9l
gUoywOFLuNFKdjFAKg6hjWriMsCXTi5p5yczQAsl5AQVZTPA9g2MSPzQNED4
nNkabtszwI5N3okznjZAyzSeCJRRNMAH6BEGjkw4QDJcP0+1tjTAuwI65Aof
OkBHL8Q94xo1wBnaSQoA6TtAJKdpsxp0NcBYDDtrGJQ9QHg0MIN6vzXA0L4g
LlNjP0CDI+Sy/Ag2wBXm85XYiUBA/P/nmRhGNsDfrNHFGHRBQAWh/O1cgDbA
/VGjGRVaQkAMdaRtuLE2wIyk5QqjMENAjJgpv+bYNsA4NyItQhlEQG2lsOcG
/DbAVXfP7HLyRECt9RTJAxY3wMaVcNBfx0VAusZ3PS8pN8BU9AvlXa5GQNwM
gQ77NjfAUwAYl+2FR0DeyLARUz03wG9MHnqOb0hAJY5yKBs9N8DgdhiB61RJ
QIQayzu4NTfAwU6DJdoqSkBskfToaSg3wL9m6PrZEktA4M180fMSN8AuLL5t
a+tLQEkwbMRE+DbA8s+HBLm/TEDkG4z80Nc2wNKzS8wXpk1Ag/UB0XatNsAj
RYAxCH1OQAMFQFUlfzbAkRavxwlmT0DdjdjnX0U2wLhKp33OH1BAY1bNdywI
NsBS+XApdopQQAneC+oyxTXA+8e3bSb+UEDtP3dOhXQ1wFzttoAfalFAPilx
dnAhNcDLMjMsId9RQFi9YPSZvjTAZWep6QBSUkDQgG+jRlQ0wLfy13UpvVJA
9OATcWboM8AYnoOaWjFTQK4h36xxaTPAMaDnjdSdU0A3KzNI/egywHSRRZMs
CFRA/+n3UiRhMsDGoiAxjXtUQHkWLNbTwTHA0Aq0nTbnVEBcQTD3CSExwOmS
xKLoW1VAZcqPUj1kMMAsCs+5eM5VQF8CkOwUNS/AJ9iRn1E5VkCvaYPb15st
wDHG0R0zrVZAhiPxzG+2K8DzCspqXRlXQASV9QA5wynAxG8/UJCOV0CWRoAa
UGgnwL/DrkehAVhAcKpOWqXGJMBybtYN+2xYQBR9jLvz6iHANDl7bF3hWEAk
Ie8AUDMcwK5a2JkITllAFEG+rMpDEsCgUAn7AbxZQFVR4ietSDW/89G3Tg==

                    "]]}, 
                    Annotation[#, 
                    "Charting`Private`Tag$36741#1"]& ]}}, {}, {}}, {
                 DisplayFunction -> Identity, Ticks -> {Automatic, Automatic},
                   AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                  GridLines -> {None, None}, DisplayFunction -> Identity, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                  All, DisplayFunction -> Identity, AspectRatio -> 1, 
                  Axes -> {False, False}, AxesLabel -> {None, None}, 
                  AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                  Method -> {
                   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                  PlotRange -> {{0., 
                   102.93762263160029`}, {-23.23954878393203, 0.}}, 
                  PlotRangeClipping -> True, PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                GridBox[{{
                   RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "102.93762263160029`"}], "}"}], "}"}],
                     "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["3", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["False", "SummaryItem"]}]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {
                  "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                 BaseStyle -> {
                  ShowStringCharacters -> False, NumberMarks -> False, 
                   PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
              GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              BaselinePosition -> {1, 1}]}, 
           Dynamic[Typeset`open$$], ImageSize -> Automatic]},
         "SummaryPanel",
         DisplayFunction->(
          ButtonBox[#, Active -> False, Alignment -> Left, 
           Appearance -> {
            "Default" -> 
             FrontEnd`FileName[{"Typeset", "SummaryBox"}, "Panel.9.png"]}, 
           FrameMargins -> 7, BaseStyle -> {}, 
           DefaultBaseStyle -> {"Panel", Background -> None}, 
           BaselinePosition -> Baseline]& )],
        DynamicModuleValues:>{}], "]"}],
      InterpolatingFunction[{{0., 102.93762263160029`}}, {
       5, 7, 2, {504}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
        False}, CompressedData["
1:eJwt0gk0VlsbB3AkZEgTJXMX0SAV9w3lfcqQDJl5T4Mh5YbSXF4ZSsVFcg1X
hIyROTLkVkqUvnAvkkoJoSJTkbHy7aGz1tm/9ayz197/Z++juO+I9QE+Hh4e
XvRO4uHXI9XpJNV2k82mWrC9Fz92bKyMZ09GO42vgWz2couCd96NxezAw9kH
yu9VsysDlbLrBOrZP+ssxo+oNrMT7cWW+Zi3snW6nmlfPN7G1p1J0zNz7GK3
XXJ2tr/Qy/ZeIBfofLOPLZnwJt2jYZDdFlW/T2dqhL1HN4st7D3G7ug+L9M2
PsF2ubxnKvvUDLtHk9XKHfvJvj305+sMbV4Y2zZeKzrFB98vWy0L8JwL/C/z
Dn5pFwRRRaEKV0thWOzpOq/1kShIl1YyxlriEDkratf+fAH8naHjJym2CB6d
Nht8+WkxDBs77o2vkQAZ6aMNu1KWwo7B81tkfKXg9IPo/HYHaUiPvCGbvFEW
Gl3Lw53F5UHPYjYvvUoBYgZWLL46owj9IUbcUK3fYOtKjw6/I0pwtSbc8Fi2
Mgy6FOXu71YB/dmWhRxZVRiqsWz5UqkG8aH1sWHOq8HA0phR5lsLQxI10g/S
1aFhUP5I3goNSGvca8kd1QDv2wnrjWrWg+Xf4QXNrzeA6pmA1U7DG4GXOXbz
M78WvNZxVfZe/jsUy9il8WuwIPSnkXyk4SZw7dyUKLtbGw50x2lz6nXgjw+T
rVFbNoN7H+dkQ8EW8By4s1BIgQ1lZy47pBoDsLibM/V4t8Idn4GxNxVboWVe
85kFhdtgOK582iBDH4RVk/y48QagXB7IU3DFEMDo4IX3F4xg9wtzgaXc7XBm
/8YQUy9jKO77nGCatwMGvTIKTPtNQG1sT5Wpqhns50q0mLqZQ/LPhg+mGTuh
7ULQlOl7Cwi7KC+g8pclqNWeFVdZZwXuKelfFIqsIJtb91x6ozX0WY+WSpZa
QwX3fli7vA2EpAS7ZITaAFNrxfL8ZgORFqttr5vZwtOX/Mea0m2Bx/ldOP+M
LXTG9o+qb7ODqoZxhgmxg1T+OQ8vNNpBdHSPYaKwPQSteFJXYmAP3kVZVg3+
9tBlm7vXuMAeTCcL3Kvb7aEkofiUnpgDiCl8t16u6QAHMgw1xnc5QKVqhFjz
eQdwvOM8kZbqALPbN3SdqHKA5Jdz6gy6HMDnkcTmLTMOYJe/Ml9LggMacdpy
6us44FPlqbnegAOP+5NMNBkOiC9pdGZ5cWBJ9qu18wM4IKXXNd0TwQG55321
d1M48OB8u0RCAQecNZpcfe5xgLejpoh5xoG08Duzm15x4H1qpqFFNwdWlMWE
HRjiwL5ngU1npziQ+u7o0ih+Brq+Ou69Kc6AoqB5euVyBlykdftalBkQ+qTo
G6DOwK0SIfFVLAZY99IX2esxUFmtJxloyIBh3WupAjMG6ptPyrbZMGDTJq4o
sJuBtq4cpQ37GKgL61HgPcjAPS052cbDDOR3OEgln2AgOSRSwovLgF96uKiU
PwN77ofMqQlkQOflpWmvYAbiYyv4V4YxMGU3OL/jCgN7zzYaDkUyUJVy2/dH
DAMqT2Jvi8ah7yVevUHX0P7pRkt5kxiQKuDbuiCZAbc7lR7yqQzcfuQTo57O
QLe8/rK3GQws8hNJDMlkYGvbc3nWTQa8lol7hGUzcM3epKQjhwHjT0vmTecy
8I3bsXdJPgNpIjnF6gUM/Jhn83RpIQMcoe/tPLcYKBG4MdqHXFSavyCjiIFj
rmVrHYsZaFz4wGTZbQaqT4R8zEOWvbC5uLWEgWyWnGIrsmu3x0uzUpTzXFl4
NdIqg89Ap4wBYa8HpvHIapavzSTSj1d7t0M5A4MvjsSmIx1zMpuGkf/5t4tu
vsOA4PXjNlwk+77gtTLkmbeJnaNIrSPO2soVDIzyKkXZI4tiPvYHI1Na+ioK
kRFLBv58ifSzHXKYRbpoSQfK/4PuUdI4j41UmzjZ6oQ8FCnTzkUWrK7pjkZ+
eezZn4/UfRvOU40M+loo+QrZJNS8ZhDZ6pu1/SfyzYjvPvG7qM/91n4KSOVJ
DRd1pEeYuOFmZKHckKoJMmiD4wk7pKPRv/edkVq79IQOIbmaH1inkPfnX/nD
H8nTp3U1GCkpuHRRBHKt8uTlWKS+/mvB60jzCT2FDKRDbsamHKSLk7DVLeTO
t8d3lCJ1mTdb/0GqterrPEBaSPgaVyNP25bY1yKTogf21yFvPQ4t+RdZPaHK
34xsVau1eYG0zVcWeoVs1rh4rw1pWfL+aDvynWRZZgfSkxvytgs5+WbPoh7k
ufypzl7kvIDYwo/ISMuN/n1IJ9mYyX6kev/Y8QHkjzK7wUGkqfDQimFk/N4g
zgjywy25K19wH5aXwr4i3w5//nMU9xdhHTSGXDy3zu4b8l8ffeVxZMjI3TGs
Z9ON6xO47+II40mkRjT3KzY0LcdvCtlT9EZoGqlXJRqDLRReLjCDVLBd6Y2N
StLsx15vyN/+HZn7Q+UG9s7aFL4fyIt1bAuslXtHAlZOMOATNj3fauVPpKqt
khs2b3o8A7vK6OwrbFbkrMgsUqn9AhurdbjGHWv0gz8Gywk3rMSabRrqxEJ3
7Byee2jeFbYKdiS3YBs293+yTli3j5fPYk28uqKw675p5WAX+4ZWYdWDC1uw
xlEtH7GuSVPT2JjWQmFe5BNxt+XYCWOZVdiX13hZ2PKBD/rYq3r1ltjf5Pft
xhbOThzAbu4MP4rlnNbjYk+JDp/HRqYlh2IXfq+KJLVdTxypCwVSsNIb39/A
qpTfz8Wu140vwv7je7AMq1/JuottmBV4SGqx6WpsxfLBWuw61c464lG5/4h3
9jQTeRJeYPPeGbzCqt0fasNmJsS1Y92Sn3aQfdMnu7AfM1V7sLaJY73Yh5EP
P2LXBl/uwy6yEfiMHZc7N4Bt658axNZs0RjGFvzlNkLOpzvxC3asPuEr1rLs
2ig2Pzl+jJyLgOc37JbDm8exc1vEJrB3X1cQj3ccmCR5exdOYSVYyUTekDXT
2IG2CuL9sbUz2Cvz04hOqpLfsV2hp4iugy3EHgvNH9ju/EBil0gTscNd/id2
tt6JKK+RQmRHd1J9JGaxei4mVOMA4tMHOUQbVivxXQEvDx/+Dw8oE+fI7iBK
tBwi3l0TSnS5lEUUfFdDXD7zlrh22TciaInxYm/NVSQqtmoSIzONiXlDHGLt
7+7E9/5c4lBHEHEaYogCaanESyl5xDnJ5cTApEdEy8w6olxhC3GwvJ3or9RL
FI8cIKb8GCWeWDpNNFrPw4eVMhUg/rVThChkvYAYYCdB1D0pRRyPkiUWFSkS
Ty9RJuqcUSXOvl5NNE9TJyZ6rCf2b9Akmvr+Tsx9vIkoIq5LlBnZTFRv0iOy
i4EYt2Ub8ctTfaKJrSFxQ7wRzf1uO5H3tx3EueomxHnapkRRAzOin7w5cWia
6tS6k1geakGcz7Ykuo1Sk4KtiM+lrYnCt6iv1WyIWenU07K2xKjz1Pxe6tMd
dnTdRKrtEPUa2BNZF6kvaqknRBxofn3qVR+qWjG1pYN6ToxDXKNLLXWm6gVR
a3OpKc+o3D6qtRBD8ylSBXWpLrbUTe7U+f7UnigqfwZVqZRq8ITKaaF6vqf6
j1DFv1NTBHfRe1pMLZGhaqlQy9dRg1lUDpuqup0aY07lsaUe2kW97USd3k/d
6kGN86IOHacanqG2+lDd/KkT56m9F6nPg6lVodRV4dSoCOpMJPVbNHXkb+rn
q9SweOqaBGp9InXFdSo3mfpfCvVTKpUvnSqd8au+Qe37ZVMmNSKLan6TKpJN
zfqlfg6145dOudTOXzrnUZ/9cmM+NemX/weIA7I/
       "], {Developer`PackedArrayForm, CompressedData["
1:eJwl0wPXEAYYBeCvL9u2bdu2bdu2bdu2bdu2sVqtVqvV2p7O3nOe9wfce27i
Jh2rdAgSEBDw7ddzQQlBaMIRkShEJxZxSUBikpGSNKQnE1nJQW7yUZAiFKcU
ZalAZapRkzrUpxFNaUFr2tGRLnSnF30ZwGCGMZIxjGcSU5nBbOaxkCUsZxVr
2cBmtrGTPeznEEc5wWnOcZErXOcWd3nAY57xkje84wOf+PIrT37wL4GyDU4o
whKByEQjJnGITyKSkoLUpCMjWchOLvJSgMIUoyRlKE8lqlKD2tSjIU1oTiva
8qvwznSjJ33ozyCGMoLRjGMiU5jOLOaygMUsYyVrWM8mtrKD3ezjIEc4zinO
coHLXOMmd7jPI57ygte85T0f+cxXvvOTIIEBAcEISRjCE4moxCA28UhIEpKT
irRkIDPZyEke8lOIopSgNOWoSBWqU4u6NKAxzWhJG9rTia70oDf9GMgQhjOK
sUxgMtOYyRzms4ilrGA169jIFrazi70c4DDHOMkZznOJq9zgNvd4yBOe84rf
+J0/+JO/+Jt/Av8ff1BCEJpwRCQK0YlFXBKQmGSkJA3pyURWcpCbfBSkCMUp
RVkqUJlq1KQO9WlEU1rQmnZ0pAvd6UVfBjCYYYxkDOOZxFRmMJt5LGQJy1nF
WjawmW3sZA/7OcRRTnCac1zkCte5xV0e8JhnvOQN7/jAJ77wjR/8S2Aw+ycU
YYlAZKIRkzjEJxFJSUFq0pGRLGQnF3kpQGGKUZIylKcSValBberRkCY0pxVt
6UBnutGTPvRnEEMZwWjGMZEpTGcWc1nAYpaxkjWsZxNb2cFu9nGQIxznFGe5
wGWucZM73OcRT3nBa97yno985ivf+UmQ4PZPSMIQnkhEJQaxiUdCkpCcVKQl
A5nJRk7ykJ9CFKUEpSlHRapQnVrUpQGNaUZL2tCeTnSlB73px0CGMJxRjGUC
k5nGTOYwn0UsZQWrWcdGtrCdXezlAIc5xknOcJ5LXOUGt7nHQ57wnFf8BxjG
/90=
        "], CompressedData["
1:eJwtlVcgUG8Dxs0iMiOFCFll78R5z5FRKqOMRFklewshIiORLZS9R/Yqznvs
ZM8iCtlkt2R8/4vvufxdPRfPOGvuqHuflISEZJGS5P/iIwqvGS5616xAEtGH
4axHaxGVTK0R2f94ZMR4J9d/vN1VeOnmkVqke3+5wP4//vn73bet1Svwouc3
nWjKWqRz2lych4aPGAwj5smzV6Ce12XVxm81CINXwNc+Fj5iPJH7omnMCnyt
ftCu+64GOavgBT24+YipURuDMf8VKGFIqq8dX4MIsPqMDKvwEe4BPyj51Fcg
7e0fL7M4ahAKE4qfJKZ8BPvEymjFqRWY+VxZbRavRuSlVswOHv/nJ9JHnPTH
Msz5EzX5waIaSfCUm+pJ5COYzW+XUzctQ2sScmt5mmpkvf2UqFMlHxF63Uqk
I34ZSjfbM7BXVyHs/AMnxZf5iOWmBe3r6DIcuYy5fKOvQvKK6wpVuM8Rp6j3
vtivL8GBg3FGW9dKZAb9cq5M7xyxMPqXoExfgnZCf26c/VaBUGVvBno/P0d0
K1hr7eguQXdZiycuuhXIaFyFbx5+jrA5+puVnWoJEmIHxHh3OfLoKSmTNgs/
YdUf/C4+chHiXSkDV3fLEJHBL/m3bfiJT7WskXGnF6HVfUHpMPkyhCzapn20
kZ+gMufTzy9agNff29am05Qi8b8FfT7TCxD9W3nB9ugCdDmdpy/YVIKMyxjH
OJgKEAuLf94+/zIPvdcHLLcji5GFW4H5eaUCxED3GFLqNQ9TGO/ZpLsUIX55
Sr8sOAQJ77dfW+d/zUFxMzBnSFmIUN6UwsuCBQml2xGqbd5zsHizpHm1Ph/5
ZM1/rGRNkCDfVcorpZiD2/Kx9EIv8pC17yac7reECNVRqjrOuFkYgbyR8fXM
RcwSdz7w1AkRv3T87icKzkJDf9a3Xx/nIC9u/arqOSVMHPXYsKpo+g5jBoZk
KmKzkQmZP6nhXsKECUmMFsO97/Dgwne9+sYsJLnIUMz96Hki8ly3cXH/DNze
9zyvkpiJNLuQjxtFnyekbAPf37k6Aw+/ddgXRmUgdzTNLdxPXiA6SJhtVLqm
4XrqtecaOelItRlP8e+kC0RMtAbM052GjyLYTiZlpiGI+14Q/SkRQtyOc3b+
2xQ856b3j4M3FalozjOZjxMhZvu/O7q5TMEb11JTxttfIxVJGaMZx0WJxKWi
7yPUU3BQYOXbw7AUxKY+Md45X5ToqV/kmqX9BlnCSxkt6ZORGWFxPyNlMSLw
dSNdH/NXaEwbkhPU+Ar5G9Z04XWfGFHNZERKIjAJc0spp8kiExFG//RpOVFx
Alz3HlZSnYDCF6nZuX0SEHYDN6sgF3GiDZlv97L/AlMvmpGsB8YjIaOfybqq
xAnHhfXrH1LHoVa+KZdQZhwSqaqyxf1TnFBW5DK483kMsjAmKtENxyIHx4/1
DKlLEBmyqNDRic9w2fespeNEDLLkmnPZIlGCiB9olMta+QSD6gLX9g6ikXaF
1xd3vksQ/4Z4VrYoP8HhO52RZPLRyJtHOgN5IpIEOQ3N8zmhUfjtuvmuW1AU
Innn9lqKmyRhwTsaHqk/Ak9p+Pa9bnmJ5Cedy12pkySwWrFArvBhSMVwk3kh
JRIZMqZKKN2VJGJ0spS+tw/BRdK+OKXICOT5v7+ntW9IEYIu2wxc3YPQx1E7
9ojmC4TzeNe/jjdSxCk2M6bKLwMwSPfouTrhcMRoeC0LXZIiRP3Zl57t9MNb
hxKpYYLPkWzLRbrv4tJEtIPqchZLP9TWq+QJB2GIk4q4Sa+bNKFxL4zV2acX
DocwvPR0DEWwIRMtnmppQsp1wZDpSzf8fCDBkVgRgnDai5bsbkoT8ZTBg9Oq
XZBSfGc1+WgIgifXSJQryRC99Y10HYqd0D5Buir2UjCiMe25lRooQ5gNleGf
sQ44JUFvSfb8GVLvGOq41SJDUOkYXTt6uw163tTl71sNQrZoryYOH8gQDClp
fYE+LRCS6ns5mwchnSdInKylZYm4M7d9q4qaoLHxx4tDi4HIb5w6q99SlqDX
pm/T/whhy6eVpIt+gQjV+vmNc1GyxI9KnfdKWg0Q9+MTUjgbiGSkkZkfaZYl
7v1oJ/PtqIUp9lSJFXVPkYnkpZdaK7JEWNQqek+/Evr0stcNWzxFLrWzewnS
yhHWi84vetZKoNwFacFZ7qfI3zeq30r55IgXjbKhc9dyYAmvDRK9FoCg3C7T
e9JyBBvVRbdUvyRo9LDgxUJXABJo4mPHpSRHML9aPTK86w83jTK1sboAJOPs
djD3f5zBXN6LcsMfyZZB9y9XBiCPS1M+U0nIEb9krOhTH6ciZhmdvv7NAYhO
1L0JxZNyhOTFM2IftAuRgWtJ+hXLAYgIdcjj5HVZIkJuTtW8uQJJ4FiTOyHy
FOGmiDDerJcljC7HUuu41yGq1DNmePhT5As9pcpvd1lCv93nrf1VHGmV4Jca
pA5EEvO/pF/llSU6T8Zv0fM3I/Qyv8cbiwIRL9I8PocmGeL8IRODvEobQi9o
cS37URBSdNxtu0VLhpDeIGMeCvyARIY4iu65P0PsFmSlY+elicTXI9d6rnUh
19pL5pxcgxFThei9bmdpYu25ByWVQi9yLUwhjiUrBDlS/kt5eEOKyBQ4er4r
rx/x48l+lMwQhlRKFzso+UoRxY8afB8eDiDelO9MFDyeI2qhSQ2OJFLEUpo+
dsV2CJGhNdsV43iBODjzzXzykiTUPr69K7I+jAw5lnu4MkUioka5iASFJKF9
Lt6eHB1FxkXUJM7+folY/0g4fSZEgmA6umsgU/AJ8XTQOjp1MhopbJQ9eZpM
gih0iN5vPT+GIFOzWlMPY5B/eW2ll16KE8ncpW7qfuNIhdw93sPiWMTHc3JU
g1WcEMlwEr2w9AWZ8vGvyhaMR+Jny3KjRcSI6WduVJ1Ok4g8SqF3eTkBORrD
XbqhK0pwpVseRHZ+RVI8Di82J79CHNzTGYQdRIip4LfDLmemkPGqmbsh8clI
Ubukvp3fBSIx4oxH28IUsp2f5yO29ho5jmUaF5efJ9ZaJukpkqeRBHVqiSsS
acieOsXLWxPCxPmL6Q97jWaQCQbvD1ar6UjGVI52wb4QURp+iaT1wnekNzqk
vfNJJnLw04JtBhEi3OzOR5ctfEcmzani1imzkYGJFcZab0GifkfZoahiFjGw
2d5K6s9BrOVHEvxKBIh/abTnsqLmkCODwSVyW3mIw82hldUDfiJg8DY9u8E8
snpGiZOdvBA5/c00feUKP0EW6TX6UGwB8aUIujnpXIycrj11ZSriHJEv80l/
lGMRcanlulBnUIoo40VThWt8REbyuT3xzUWkKJlsM46pHLkVKmcyfIWPYPiM
W2uOLSGeHDaJ23UVSJn+Z/GBVF7CeO59dsfnZaTyl6weXlqFdA39W/ej5yWc
O4pJ371fQdQlGlXeRtUgC49Jv1x/zEMAZewVXdUq8oLz2Nx4ax3Cuxu03TJ9
lpiOcWJ+1fYDueJmNHbc7D3yuPlD2mPzs8So2xFJqZo1ZFrLf3ZipBH5xdue
yvCNm1gOEvzC2biOjP59c+6VIYHElhXZchpwE4tvH2sdc9xAmswOaU5QNiMU
6t7Dbe1chBi5c4375gaSf9KmNSKtBalOvFq59ukMwV6u+nToySZSGvmDdsSz
DdlQfCBCPs1JtLjTqJNybCGH9A8/OLzpQNCLDxKkpzmIgIr7MZc+bCHGN12x
OI6PSHJ6nSN+nIN4V7DAJ39vG0HuP8ote9iNKJF1ZrlJsRO8KS3mneQ7SFeD
1IwkZR/Czy3sXqNzmrAsprXqq91BvnOZNYof9iPfrZmnuq1OEbzFpeVOvj8R
qezUoOGyQUQ76ZflghsbsVcfJ8tt8AsJSDWjCEsdRmYvUJeyeZ4kKOWec6Wq
/0aWE/RMTveNIoLOxbdvOrESPr0Hkxs6fxAnNTl9RY0x5H5hzShMYiF2i9B0
Udm/SH0l5csF2y9IxFtQzfX+BNF1Rue/Mu0i2ZJKJiuNkwgJNcUf7T1mIq/p
jJ/hsX//7ZepE0fXN4T1h5DtGTlm4vxeOXL81z8E3lEvYdudQq43ft9js2Ui
oMnmzeTNPeQOmVpJ1+kZhFV0tqE7kZFoT48IS93fRyIpT5+yV/2OjAlI4U0N
DMRsY5JV4ulDJPZ3eXjuo1kkkSqIYreCnriyITzqzEcCnjjOqeSWziEFXWmW
Z2TpCFaN3hvaOSSgz2mk+UbZPCJ2ojT6WgktwdFPXkJ3gRRoaNwTGaleQCK7
qUN2T9IQTlR2ZIN1pKC6kLyrpmUR6S8cKE9ypyZIvbb7JjTJgOIo49zA1BKC
fuq7FsxORYRzPVuYaScDf34U2H3/L9frjLmqN+qOEN385dSFauRA3+ZFELK6
gjymYXOL1aQkMilr4ga6yIHvDTmbRKEfiNqdPy8XzlIQcaMJjvcuUoCrc5Gf
xnXXkNcR1zlLNskIzUYKucwSCmDoqeTZVLWOKIR8NFfdIiVy6Kp/FjBQAlFB
XRLJsA0Evy0WeWSNhEi530Cl4UkJTMeiVn7f2UTu2j25db/zEAoBkwWfOUqg
79JiZXRvC+EZGGseZz6AVl/qi9awIyCwKkJGxmwbCbpXb/FNfw+K0z8Xn8s5
AjZM+Qqw1zuI53gP//7XXVjL8iVSZf8I2PO41nT2y08k52Am8obZX9ilRB6v
YXQU6Iq7K1SZ/EYGKooq7CZ/w7r11F4p/CgYZ4s8vi7/F1GTZOp89PoXrOWU
cv7EQgVUPvprzTD+Q/5krF3A9X/CJiaOPi03KnDjphP1c619ZFQ3wHecZgd2
JAYecH2hAq2ZBpd8qEjAp8sXLGpJt+Hamy+RPVLUoPFnCBuZCSno3qdQatze
hBJyqj9AHDWQ9KvfnP9NBnhiexZjGTZh40iJ0p0VarBX2eHEH00BzLYenrgi
vAGfUvccP3/1GPD/Mdn2wesIWO32NeILWIMObLGeShXHgJX65jvVD1TATb67
O/HvKtRKDvcIZ6ABUrlxb/WYaEBMweNdO7sVKLVjLfnnEQ2gsQojp+s7DpzO
TJxiGluCC2xSsneXacCJn1T0zS8ZQObbxOBTMYvQq7SUXEyLFqQbpE638DMB
n5N6SjfVFmDOZct4NpwWONkzOdbQnADtSubJyj/noPwnH0VOheNAT5wk6MMt
VuCrEqnw7fssVIrTHmnKOQ5YMxfK5YPYQNXRyCHj3u9Q41RemwcnHSC/VJVX
wsEOiIMwavWqGcgv4BptmUkHZLwqqrIVzwCan96iWn3TcIvC0GrlJD1gtmxW
+O9EwXllR9LW+Sko8XmvwSOJHrw9kxo8YcIDIv9S6YbufINXmqo/FJxgAPWr
fayvvPlArRutbrzrV4jGdCMWtxjAH1Ke7C++/EAtyfSW/eoE3CXZl3udzACa
/hFVz74KAs7joZQP736Bq2nKFJGLDECqWjbqXM15UNCx7px5ahxyXaZ8XS3C
CNj0v+1jtqLANoSd3KPvM9wyZb/81YsR6KTQxXD3ioPPTlSGOk8+wWxjz61b
vYwgNFqK71a1JKAgfdKqbzcKgS2VgPEpJmCJnGy9/0waDF8Xqs69NQKpkygi
VmyZgEut98L9PFkgoWeZ1iI3DFuNjnVbdjCBd7LFZzUlFIBIbrm28I0hqLpj
5lzPxgzmXcn1TV8rAjJ/wzPupoPQt5h+ldeFGfgtHS68clUG6Zrxr+QcBuD+
uH8n+wgz+FrX9O7zEgA23B/GBPL64UmBROy8yAlws44r3OsZBkTKAt3I6/vg
U/r61LmIE8BQ2cBG7+FlQG5TTN3H3gv7j4fmj/05AdTO5j2UzlEDMNJyM66j
Gwa9uqfJbMgCdDceVnB0aIChU7LvWO274Da7Gl88wQKWl2zeVatpAgrfJ7cq
aD7CN6JKlUekWcGp9n9YyKUbQFMjZ0188QO8ZGT1bjKZFVQjTlp2Idpg8jOJ
oSzsgKrNfg+zaE4CA7sfpzlFdQHr3T83ZaPa4SuPqvBToSdBOeMnOUOeW6Ac
5r6biG+DZixj2Ud+nwRjCeu3sUM9cBv8YHqf0ApD5By6Y5zYQDXj2Iv5C4ag
19t5xSCmBSr5V39O+cUGHuxsfOQnjMD8C1x5+l0zfGc14HjG4RQoKFEbHZY2
AT3hf0SUvjVBJaVxrX8bp0DYce3lPGpTwP2h0IvskIDj8YxSogGngdAVNmrr
92bAqC1zXFaVgD3RLZE9pOygLz1TSOC2BajP1+4Lo4eQu0uTNzKSHXh/yiET
vnQfPA3TKs980Qi5w1Qiw4U4wDequA4xDysQYkwxm6fZACt23Ho+VXIAWsbB
mmMJ1iBKNebWNYr3cI2rZIRNkxNYP1srCWawA+fKvkduVtfDpHD1ay82OYFF
5EPHpj0H0FnYRgXS62D636M6XMFnQHDVIfHguxP4E/qt6V9QLbw6Enw5VJAL
MC9S7BQFuoAj5fKnUyxqICemxSX0hQvQR5meUHZwA8OmvM+PuFbDSdOvtTeV
uMGsYZdVAOYBbHvyuGJ9q6Aoe2+1exw3qDWZ6BW19ARPjjkodT6thNqF2UvK
O9ygZJsTmZr3Bk5yhXtsFRWwoO/l+64rZ0Gxh9my5zVfoJrCsMc/WQ5HNGtP
KOadBbp/Ei7G0/gDTDtJOpy8HFKn61LPH+cBJ64lJl0qCwD+bXEr2jfK4N82
xfpUax6wLCr/YxUNBI+EVs43CJfCe4gnRXMPD1AqfSLwiuUZsD5QMyorK4Gv
Z6NOQ0VeQGnFrzqmGAKutE14vnYvhsJ0MU+oUnnBU2v/x5ZXwsALeVW+o9JF
UOlHQOR1aj7wUS/HjLIkHMjlgTrdlQIo48vBxPKED5QNd9cb+ESCJfPUadGx
fKj0cIzjziIf0PWoCWmMjwIns1gWjZryoMrx2cdyd86BJyp6y87nYgBr/5rH
9axcOHL2otjVsXMA+TKSY/AvFuzLPU1PqMqBUoqyD0iu8oOvPPdnrzTEA1vP
s77zRDZ8sLU7s9nKD7S52xtt2xMBu3aqUVtHFvyZXh01pikALGxdMo5cSAZJ
EiIHxO9MKB96N/ZxqwDwPzXqZuzxGhj129JZ8GbCsY28j1QaguBTO1nXCe40
8F227rzK1QzIV/xyyvCzINjlVHb34c4Ajgt+L6fi0mFExs9Nm9tC4IKgsZ14
WiYIean05V5tGlxNlpznnRcCsniNLZVxNqCu63MuvpQKh3vunvL2FwY6svbK
Pg9ywYTy0RYhkjdQQNu/MuzYeVAtuPt9/HY+2FCT+HHQkAJ1LpbbUWWcB+Kd
HaHnUwvBgxYyigiXZJhaJvHwuNoF0JDbWRSuXgK8zHrL0btJkEGo+nP52AWw
bDnybG6wFPhRs93jvfwKqpVU0qV4i4BTOntzwxblwMyA/3oebyIc1MsTIT8v
Co72i6Ek3JUAZb/CaySZAE/Gfb709YMoaBoh88/5UAWKNqc1dhTjoVnABO2M
mxgI4i0yWKmuAfxvlGL2kDiYG+bKUMsmDrTIYpcG/9SB6toaEUH7WNg/tWDG
ai8OYqjmZQ143oPXsdF/J+Nj4A0tmnryTnHw9GQwiWROIzgqHXu6qj4aKozH
dzWLSICT733toCYBQJu+oz1pNGQx7NffCJEAqIx3rWVVE1irT7iLqEZBnW6G
dyLLEgA0OCeLGLQA+xXq3mTql5AiWvvvkJ4kyG6XnfLE2gCva/YN444I2FXI
HCZZIwninzeoabF1AE5U6JSG3wsoF5vld55LCijrfLDqVegEHtRS7g0i4XCg
uf6NaIwUuO/0yTu7vgvs7jfvzDI/h+zq2y0Cf6WAnlW8fAJnLxDvZkpi3AmF
r2NPSGhZS4Mff4yn9pz7wcYptr2qnhDokUexfWFWGoDCkvxwpkFgmWXHyvMp
GApo+flI6MoAjw7xyb/pQ6BEc3pB58szKCJlykv2UQakx9wtcHYcAXjM444P
Y0HQKqRzFlyXBRsO5rvvIj6B9tK2D2RkQTA0ve5WZ7MsoBNe7nWLGwMz5KKX
cs8FQvzkglE7JgeerMPZx2tfwKO+nZ9ql59CJYQ752evHBjO86C/WfYVOK7e
XLUOCYD/is7UP70mD5TZS2vbCqaAnJidQmi7P7SuOCUnPyIPym1Pp0ZKzADe
ShoFFVJ/eMChY7JpowDkIz9Yf977Driaq0NGa/1gcpZuMu2mAmgdf1R0qWoO
nNfqyuF44Att3q1KMwReBCb3ehZZKhZAOGWAYCWtD4za3fv3i0cRTFu2Fdcc
XQbO0SXzvCveMFF24rJUhSLQEXxt6KOyCv4xmojatHjB52NUA3w3LoFlyiOT
0+Nr4OPVDMqfcZ6wqaKOZ/HPJZAdpskps7UBPAYt/pokPoJNBmS3Z6KVgGoN
qLrwYAtk2TzgNI3zgE6Jnc/t5JWBYbyCfg3LDqA/0A71CXeHMr+UZDrWlEF2
v8wrF/pfQFzMiNWkxA3+Hlqe5Y9BABfsKjDa/g2efxblevrRFUYucVOS8ABg
LmB2spZvF2j2PHjmM+MCJ9IU2o0DAajk9J8Lq9kDSsV6Z+a5XKDtt9yBV+MA
SPsqFB6ePwR/k5+JCN92hh0Z/TKRCihoPSgxPkFOikr2Rz5YiHCChUnjC0EZ
KDAaaj858ZYM3W3J1R5pd4Q6x5PLig9QsNJomS2rQYESs48dEm0coJExGGOy
xEAru6bYEd4j6Nq64TubI/ZwyOWxIssQBr5yj07qa1GhqtM1jllfbKFkdXl7
pKwKODJxI63G4hj66wZFj2+hDTyzO105nKkCKoKv1Ir00KI8d/69sHSxhsNM
ipeMT10GD+a+CCak06Ou03XxL+0ewnm3s95xgZdBVnV2v7MwI/rdpLz9nJkV
nPV5VCH++zKIb3hqN/+eCW14n26SrfUAjl7xZoLuqsBHlfmLdMwJ9EKIo5uw
zX0oeOmNnvCCKpi1Wfa+cYsV1dY8K9v9xBLONB5apZirAS3PP6VX77KhNINR
J05GWUBPge7T75fUQIIwmX1L02n0uLcR5067OSyCdxNHzNWBZhZHzb9jnKhB
tZpryF8zWFQXnJM5rw7W/aXwzHIudKWhpNZOwAwyN1mGLHhogE8J5EGaD86i
TUfM2DgfmcLxezJfZP5ogAA7igt1MzxoK+ubp6zB92BOwSuR9aAroPcTrc5E
Ch/aW/PbD2e5C4/GDnD+PnMVeHD8lY1N50dnt2dU0qaMoTmp2/SRgqvgreG/
Wp6XgugDxV8US9l3YLuT9DM1RBPgA+EcKd3CqEeP0BtScyMokTDN9O67Jjge
2/D+ip0I+uL1+61D3duQ+FjixvPoGjjHIBAovi6GrgXOaMspG8JuuouzL05e
B33TyrS6dhJoVPKvNG5eA+iy236Eu+M6KLlCd2GCWwqdTH+X+kxGHzoAfaen
ljfA1PI336pmadTcmu7vGKYHP/O7q3fQawFCaoZNLE8W3aYKUM+7egva/0jl
vdilBdydmrQSvsqjrCZdNLreN2EGu7J7hoI2CF1p0Kvav4gWl9v+Cs/RhSO+
KkN08drAJSfohbWrEsrX6K/8o0sHhuwZlJ35qw2kpF78dhQGKBvDN07AogO7
8v3QQV0doLZxfMIyHEUvR7hLvDXShj5kdPkOVTpg4FDw4Ws+FRTJSD6ok9OC
Q972HhiXLphCsshHyVVRQbdN5Pbv65CGycT+6BNd8MPiSWp0rxp6jofZ6VzZ
NbghFFCrtKALqDpsdR7OaKC/o2mP+5lpQuzQyezq7ZuAq7FZW1ZHEw06/ZP5
hcZVeKsKTw6DN0HAk9t+93Ouo90nGFTeCF2BTB3Ok12it4CmzIzllQvaaKDU
05ZzFBpwglNEJjL/FnAQaaL6S+igC5SgofW4OmxnbMiuZdEDiCe1zt3LN9EV
t/dhvExqUFmus+jJCz0A5I2eelPqoUkBGdEdDKrwbifvjg+dPmCIdPx+j9kA
fb/vV1Qlfxl22lRwUQXqA77z56/3HbuNpjZHkh01VoFjrtTbn0gNwFqXZIqD
7h005gI8edMbgxvG2s6pLwyAbbYgy+C+CXpmsOruYAMKXw/f2D5GbQh4vnSd
oVAzRQmbpAX1fwD+fnnnvn2UITDXYD0l12SGlpP+cdKTAXAujGk/ju820P2A
FCr4WqDv0m+xY2cQqMepy2BbcBtQMN38qsF/H6UOS+Nr/agET+Zs6+0oGIG5
NQ6So8xWaMbCpfJwx0uQUvi0GNdnI0Aj1+T896Y1eu1CyMCBpiJk7PqhsnH/
Dnj5ynP7uo8tWuJl9E6R5yKkNa9MUCYxBv25VZYxe/boKO8lz/JNefixXq3v
VIEx8Ena9z/j7oQec5k4+LMpB/2r64QDgAm4Xna89tcXZ7RyXH2gZ1UWMmey
eijNmYAcz86NtceuaKNZ+mDZtAxsF4r7FpB0F3yLkxz5be6Ohtm20luSysCx
yruq5xTvgStzx0YVZR6ho49Jj2lzSMOvx199I1+5B0rLfCxrdbzQX8eZNCgl
pWCFVJ7lez1T8PLxVf3gj4/RqmruajV7SRhQlv+KvNgUWBhRvzcS9ENtlKpl
DbIl4HKPk/YstRl4vQaeXnf1R406a6lHRsUhof/bINXJDPQ/DMp7QPcUTQW5
zKiwOFSK2wl8320GSMiUmHYTA9GtF/bMJDui8Hs2j+2OuDkQRIurxUyfoZ+0
WUw8w0Xg51xWj7RUcxDnm0im5RGCyt0WUK8yvgAVPNRdf5FYANNrCZ5F7mEo
o1iohq/AedidEgN+2lqA3Q7jpgft4WjJ0cF/l1aEoNzbQ0PqaQtweKRu7rZP
JBrQe6Uqd1oQZu3fHqC8agkEFhNP3H0ehQYL8+g+HBSAPyWjcpAGS8Aqvi1t
QxODpsa3ru438MMBTGrrksJ9EMLK4yvTG4t+XhjOJR8+Bx+2qI3qFNwHK0Lr
K92+8Wh1iSwf8zwftIRBDSq8DwCJBm0VnUsiypCfUFG3xQu76FiOV+Y/AL4S
ws3175PQgyk0yZCfFyazfWW8w20FHJ780HVdTUHFQyVUUvV44JFy59DnmVYA
+Ue7Z+qRiootpMvw+Z+FH7jur+yLPwSnHCzrM2rT0RimwsLxbm54wJPO0FD2
EJhEFtR9481EBafoayALN4x9JpxSq2gNTMs1uuk+ZqEaCXUFO1Vn4F+vV/sf
h6zBjsbJPq26HFS+d6HF0psTygsLcZ43tgEjAkbNz6Lz0OTDGHoeBQ54kzZj
6vmGDQiREqIlrSlAzzao3o/aOA2NJbfrZmNsgexkywq7fDHK9nO8J2XiFPwZ
ucflw2cHylhz1aZT36J2MVFr7c1s0POqYthMsx2Q/Y0/qK0sQz9L7/WEZp6E
uKJVhLSTPZC2YavruVWBKm/ldjiXscK/W+/TMmkcgDyLmD7vbCVqT1rPI1XP
AjnaNFkaqxzASr03w15FNfqt9HzdrYYTsH7DeL/V3hGwiT0uG+qvRXsjf9Vs
LTDDX877m2PUTsCJ34r09ad69K33fUYaemYYb7HTxGnpBC5lLhTPiTegFSNP
zKQlmGB3yafV6XYnkEEa8aJnA0d/rSWXTHswwpZ3T1PduJwBs9j7UtNOAg3N
jbVJrGOAWddbhgaeOINRIxXdTa1m9GJBmtrWCj0UCRXQxZacgflvm3bBU61o
n7XnE8ocOvgy44XCgLoLSH8xzbDa24buM5d/5TE4DhN+OumUv3UBPpz55tc+
dqA/Sd6K5JPSwq0Z5kiUyxXoJTK+Qjk+opPWlhqfZo5BZ/dJMekgV3Dge+P7
5q1u9J6KpeRKIzXsfe/14eiWK3jQOMzCsNiLPhouTtWLoYISCmG7kjZuIH9G
1nDoZz+a6zVjUJVwFPYokIz/HnEDm5m+12SsBlFt+YCy2vgjcKfDRkRO0x2s
g0n1m8zDKB/Vz8GZSEr48fuDb/5d7gC2BP71pRpFTWetSrkqKKAJjf3vCGUP
oDMy9sBg8RMqnsfoWNBPDuO+Gt2rf+8B3M1lG31OjKN3bqdEMi2TwffULIcl
lx+Byfh1peC0CVRV5GDIQpAMrrzRVAmAj4DtFRGeb3Tf0E6V4lfx5qTQ0zC6
7ayqJzBzO35YsDGFpmV961R/RQKdNeaVDD55gl7SbebgxBnU8ltLavXEIU5B
9ZLvkZEXWNV6e+fBhVlU1OJMdlrAAU7lzk3NteQFxGQ4C3NI59GX6W5MOWf2
8YQrLA9knnkDp/zSpW3+RfTiZMh5751/+MsLlx9LMD4GsZRigvPSy+jK/VfO
v1p28TIp/VWfgsfgcLDFyyNhFZXmsiALfvEXlxW9doxL2wdYutbpUpquo12U
/1ZXg//gH+RpIqLmfADDNVHNVMpNlLbXXK/58W98u/Qoxh/qC+76KR2GRm+h
MivmfkE2v/Bep/bQYxf9AIf9s+oD0x00zm2znOTZT9z26Sem+DE/sHX1WBHk
+IWSUhDKyck7eOfU5BGBkCdgCPlsS8v1Bw0YcdH9VriNz5ils4Xy+INSZ7sK
Fq9d1KhbXSlgegt3qzgtU/7IH7Ty+CgE1++hufOCi2PMW3iauqeWwbA/mCb9
sZOkd4gqUjk9eoZu4lRnqTVqFAJA9J5j/KAEKcbJPSM6FrWBv7BT9kiPCwBe
45SO8vlk2PWDHPfhunU8UI2RM+x3ACC3fvWWx4gCc/eSPGxSX8Mz8h85NVk8
BfxdxZOM+kcwIL9yFmf8gY8tInL9rU/BcPsbQetLVNju1UaGsyMr+CT/epmV
aCCoc/MkY3A6hn1984ZJJ3oZ33xJPrqeEQhSP75pniA/jj3zI9PRCVjCl5br
3COogwBmEC//5jE9dlvUKTjEdhGvX/O7re4dBP4IJ5yYO8+I+VZsD9tpLeBc
+cIf3vwMAu35bQ32n5mwn8NqIR2m8ziF/9+3ipbPQN6rXRbocgJrpYvbPG4/
hx+q2lvETjwDtHanIq/cYMUEh6qJTtdZ/OoZDi7ENBhMWq3c3PRmwyqlUsqt
Mr/jjfOi9/VHg0Fl7+dP6y9PYxLjo31R3TO40K/beX36ISA+75Fw3l8ObKPk
sebk5jSe8Kx90PR7CBhlrIp9382F6d40wgUuTuOn7UdwF7NQ4OJ5jO45OIvV
7NdcDvObwr9a2UgmL4eCAr2hkoYBHqz66pm4677f8FefH5QU+oeBoFGZ1yZ5
fFh6l5L9+sWvOJfuJQw9+hyURrm/pbLmx/x4qRarNidwhbVwmpKk54CWk09W
xEUQU/wZJ3mQ/gX/vuTKPq0QDiIF4mhlhoUxIeHcEv7gcfz+Nknpy85wIDLp
lqLFIYIV6ZkKXb0/huuN6p2cuv8C7LqIxqFNYpjcX0v7CaXPOOPy9OkFhgjQ
lUtaNmwngaV1cVRVqH7CF1+H/L5aGAHsLu9tSyxKYudf2WwAjVFcRu4Nx3md
SGA0WfH4S5o09kv8kJ1WdQR/2jqhSRx9CQQEvv4IyJTF0MalMC3bYTy1PcU4
oOglaFQ7vHjlpTxWVTVSvfFiCL/B/+fnkGgUiKr8esvi40Vs7WNkaWDBIP6S
IzXmSlQUUFTYOzL3QAkTCqg757U8gIvsN+tXLESB1/OHS/vzCCbzL6LHRGAA
Z10T0v+oFg02Xe5+sH6AYv8m0e3Be/24afuLvJG30aCTTtgrkU0FY4/X+vHQ
qQ9/3RxswE8bAwxCWjt16i5jYUxCMdSne/GyS7MCRc4xwCFgxogrWQ2T9GTL
m37fjf87pGPGp2LAxSGGXbZeDUxINdAYj+/CdTwpRo0vx4IA0gUD9uWrWH6r
eqqh9Ue8MJc3qbEsFoROgmebd65jB01fU8/IduL+BbzVOgJxIIqhlxbj0Maw
nafLx6Q/4Fz055KKouNA6oBe8663DraXy6fodaEDXz53bPsuZTwg37S0c2a8
ibVfWc9aOtOORz6jpvsVGA9C/rjoXfxxC3t141Km16U2PIDG9cmTn/EgZyoy
ratKH5saLTsir9eKr2oqslE4J4AL+0XJra2G2JjkQmzVwxbctzGpTfBPAtjB
7cs/iN7BCmKNRI9mNuPFW8/o7jonAjpJZfbnfibY0Kvj9lyfmnBKNjpOxZ+J
oD1M9NgFVlOM2zN1JPloE34nmPl6wLNX4DPrxHREnhn2IDW4QeM2gQN3G86F
I0kgPu1P9rSABda2krkTcAPiNE43/xXHJoFFCc/LV+csMY6n8lpGM404lsLz
pkIkGWybS6zmrz3AEp342lzLGnCcYjxltDYZtCtZ2U9NP8Qmm1Jajnm+x2Fa
hAXXjRSw4FLC6Mhni4kYdRSFyL/D24KOMkVspQBFxx9Z+Z322FhOue7ZC/V4
UI+U55Hg1+DE1+tbx4WcMHVjsn6K03X45lJCiQf/G9CVxTvfm+6Mqbq+Yy8h
rcUfUP+wIhl9A84qsL/MNnTF7nbo/xFhrcFVqa7lOrmmgmGWda6P+27YdlDU
atG5alzeaXS59kwacMxgV/g654HZDr9HKsSq8FzJ+DHO8TTQvkHTInrWC+Pb
K89lNKvEPa5mZ7Oh6aD7gENC4fJjzIFLwo4msgJfouOLfPY6HRy7HE4vjfti
V5+v8CvUlOMfJj5LRJBkAEMrJXd+XX9MZ8zy2A+ScvzEqlvAZaMMYCBOc9qx
OgDjNFq72qZehodcNev4+j4DxJ1gchTVCcRK/3w63X+iFF9bL03M588E896D
geeknmFfojNWC0dL8BExi2rH4EywuivlnUkSgkkKPkgjoovx9jYq8cy1TDDS
MbLucTIMayXneeaqWoRvjssxZ5lmgaTNSWf/sHDM4nqM+Q3RQnyqhfXzTHsW
EFY3Wt6YisAePm5OlGcswL3+DiZyyWYDqodB6YOaUdgL/TtdeT/ycFFhXqPh
0myQf/3aceuZaCwrgr/x3Z9cPOz9h6o9jhzwTOyvdr1VLBZpreyceJCDzxsv
+DXG5oCGyYTAReF4zC/gUlDrQTb+iEfiThFLLsAs/w5TKSZiDbh+5qRANi5S
ofZR6nku0Bx3EK6XTsLc7hQwWV7LwjkXb6TuUuX99zuvdtv9UrDw4Yc3f9hm
4j96xvtKY/NA0UOh2rYLqdhaT9vdu6UZ+IznwuxJhnyQfkqmre9uOsbxcVe5
ey0dN6tbfu6YmA+oAvdvOHzJwDKVO/zHhNJx3jS+pcDzBYD9+rLoz1dZ2LKe
p28fVRouKi81fLOsANwp9gyLVMnBMts9PKdr3uA1L+rd+kEh2EiOCtmWyMNK
sdCfl01e4ylzD0/Nfy0EnaczGvPcCjAKLnPWzYspOJ8lp3KpXRFYuWLC0J5a
hFmxIMWOTMk4zws9ivUjxeCHWMTCNvdb7L550LD491d4TTnDfkVpMaDlt0V1
Q8swhvSqKtfZRPxQsD+aQb0EJJ1O+y25UY7dPme0dHUqASf7WmXYsFIC/h7c
a7wcXYm5XrgpJT8aj+MvdSwX0t6CsYi4WXevakw+Lutv1a84fJDnPMcTtBQM
7s5mLV2rxYwtwsScmOLwTOM7ApqbpYCTp3wq16YeeyXZSf9PMBanomIFA4Zl
wPm0+Hrb7Hvsz1pGz6RlDD5ofiadqbQMnKd993JHBcd4lj4qxr2OxonEfJIl
2nKwMeCQ1R9AYNH6ikKNfVE4s0Lw6TjXclBo7BSSy9mMtV2xZizkjcJL9Zhs
C/rKQWZUScB+Xgt22t5a6ctCJN6pWvJtVKoCMJxMszt0asP+nQIn7vtH4JXP
uz86Z1QAwVeh1BshHZhaM5m9g+4L3PD+4zFIXglSomJ2+EM7sXO7kl+PnQnH
afeP0VY4VILgo8lY61gX9r2AvTl7JgzfUJdorfpeCfi1LdpSonqxvU6anvKx
UDznmKRo3rUqsCjIr/M7rh+j0h2LYe8KwcP+2EoM4VXgQInmnh/rIHZJcLvt
bk0wLo+W9TQqVgOH9N2XLWND2P8AxoscQw==
        "]}, {Automatic}],
      Editable->False,
      SelectWithContents->True,
      Selectable->False]}], ",", 
    RowBox[{"y1", "\[Rule]", 
     InterpretationBox[
      RowBox[{
       TagBox["InterpolatingFunction",
        "SummaryHead"], "[", 
       DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
        "Ready"}, 
        TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
                PaneBox[
                 ButtonBox[
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEBitmaps", "SquarePlusIconMedium"]], 
                  ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                  None, Evaluator -> Automatic, Method -> "Preemptive"], 
                 Alignment -> {Center, Center}, ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwV0G1Q0wUAx/FBZGOCQOXYKByj8SRjMLb9RQH3C5k80xhPGw/CYSx5crB4
8CQuu4kwng5EoTgxAq7SI8CMEOVB4kmEBEEUKDI6HsbQSzfoChKzF9/7vP8y
kxSSZEMSieT1qv+dmDHXfyzqOexsRimzoFmiZE8APXZuS/iWNO/ssxRr9GX2
H87Y2g1foutE4W0mmj7fON505228zqx+rSuUhbI0B//nWe9g6Y76T22NPVoZ
1JilSCbqhpeb+fOOkAl/KaR2sHA7fkGruLsfeQnqnPI4R+wZ+GSuvIsNzd+7
Njd0zjBKLDTZOsXBu/5+2sYgVzQU8LN3tlyxGHTjfmAuFzJtgMqqzw21oZyU
VQcebHKzNRw5F3+Zlvn/O8kHo2egmrTDRUXIb2reZQLN5ufk9Bp3vKGx2FUR
7IEDZMfeURoPtwwPLVEYh3Ce6k39uY4H+nwAhbTmCXu16JaTGR9SE8802gVv
LNaEXDNU8jHZa8MJPy7E4pWiFfI0H3tX9Bdn1YCU1RgvYQnwuOX+EC37fThN
adyqlQK8CGui743xQXvGTbvrHQKUNS9TmtyOYFIzGzazLoDHAVsXH7ovpEP+
9SetCUTmTTxR6nxR1B+nkxwhMHwxczJhRAStykrRkkggYmP3cnzrUQSayym/
5hEIJ9Fqnxb6YflYwbH0QgKK4H2nKxT+uPCS/yCmlMDvubTP1iMCYJWkNBIX
E+gPVdnN7w8Ew6uXXVpAoE+u2Zp7MwiVg5sKdgoBDrs3I209CLTTes9nIQR0
E0VGXX3BqHTJasxxJjB1PWjc8usQ5Exf1Xm8EOA90RkuuSAU4R6x/JZRAaqo
bSPG8g/Qrn55M6tYgBuB3xTcY4iRXlfdXekjgOSfTKfcEjHI6x96KDb52B7p
zLDfEYMe25T3qJaPuKc/nmGkhmEs8ZJ+geBjzJ3HZj4Ow6XgKNXSTzwkf3Rl
jSSRQD6b9G2ZiIdO3aMcpx4JVrwiLf8YcgftsqouhhsObD803efqDm7DavmD
+nDQxpfrrWq4yK4SVbPJEVAViY0X9G4YbrThludHQM0yyrATuGGS8kM9sRqB
o9eWHNQaDtbODzZqYiNh9mlF8LitC9iUia5T9yKxY/pkJsXbGQ6zVV+GHYxC
d7vyRLPYCdzh+9a876JQQle78MgO0FPupsbToyHRygaet7EwqBCKKyui4eGY
0Pn9AhN9A61+XxlIUWpQfDU53xrKkw9Nt9Olr771T5+booJ/MD89flGKmlS3
0eh+E7TGzH5BDpUBTm2yMdtNYYPYeNugW4aiNQvCnNoh/A/K/J4e
                    "]]}, 
                    Annotation[#, 
                    "Charting`Private`Tag$36792#1"]& ]}}, {}, {}}, {
                 DisplayFunction -> Identity, Ticks -> {Automatic, Automatic},
                   AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                  GridLines -> {None, None}, DisplayFunction -> Identity, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                  All, DisplayFunction -> Identity, AspectRatio -> 1, 
                  Axes -> {False, False}, AxesLabel -> {None, None}, 
                  AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                  Method -> {
                   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                  PlotRange -> {{0., 102.93762263160029`}, {0., 
                   22.544354689539958`}}, PlotRangeClipping -> True, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                GridBox[{{
                   RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "102.93762263160029`"}], "}"}], "}"}],
                     "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {
                  "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                 BaseStyle -> {
                  ShowStringCharacters -> False, NumberMarks -> False, 
                   PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
              GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              BaselinePosition -> {1, 1}], True -> GridBox[{{
                PaneBox[
                 ButtonBox[
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEBitmaps", "SquareMinusIconMedium"]], 
                  ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                  None, Evaluator -> Automatic, Method -> "Preemptive"], 
                 Alignment -> {Center, Center}, ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwV0G1Q0wUAx/FBZGOCQOXYKByj8SRjMLb9RQH3C5k80xhPGw/CYSx5crB4
8CQuu4kwng5EoTgxAq7SI8CMEOVB4kmEBEEUKDI6HsbQSzfoChKzF9/7vP8y
kxSSZEMSieT1qv+dmDHXfyzqOexsRimzoFmiZE8APXZuS/iWNO/ssxRr9GX2
H87Y2g1foutE4W0mmj7fON505228zqx+rSuUhbI0B//nWe9g6Y76T22NPVoZ
1JilSCbqhpeb+fOOkAl/KaR2sHA7fkGruLsfeQnqnPI4R+wZ+GSuvIsNzd+7
Njd0zjBKLDTZOsXBu/5+2sYgVzQU8LN3tlyxGHTjfmAuFzJtgMqqzw21oZyU
VQcebHKzNRw5F3+Zlvn/O8kHo2egmrTDRUXIb2reZQLN5ufk9Bp3vKGx2FUR
7IEDZMfeURoPtwwPLVEYh3Ce6k39uY4H+nwAhbTmCXu16JaTGR9SE8802gVv
LNaEXDNU8jHZa8MJPy7E4pWiFfI0H3tX9Bdn1YCU1RgvYQnwuOX+EC37fThN
adyqlQK8CGui743xQXvGTbvrHQKUNS9TmtyOYFIzGzazLoDHAVsXH7ovpEP+
9SetCUTmTTxR6nxR1B+nkxwhMHwxczJhRAStykrRkkggYmP3cnzrUQSayym/
5hEIJ9Fqnxb6YflYwbH0QgKK4H2nKxT+uPCS/yCmlMDvubTP1iMCYJWkNBIX
E+gPVdnN7w8Ew6uXXVpAoE+u2Zp7MwiVg5sKdgoBDrs3I209CLTTes9nIQR0
E0VGXX3BqHTJasxxJjB1PWjc8usQ5Exf1Xm8EOA90RkuuSAU4R6x/JZRAaqo
bSPG8g/Qrn55M6tYgBuB3xTcY4iRXlfdXekjgOSfTKfcEjHI6x96KDb52B7p
zLDfEYMe25T3qJaPuKc/nmGkhmEs8ZJ+geBjzJ3HZj4Ow6XgKNXSTzwkf3Rl
jSSRQD6b9G2ZiIdO3aMcpx4JVrwiLf8YcgftsqouhhsObD803efqDm7DavmD
+nDQxpfrrWq4yK4SVbPJEVAViY0X9G4YbrThludHQM0yyrATuGGS8kM9sRqB
o9eWHNQaDtbODzZqYiNh9mlF8LitC9iUia5T9yKxY/pkJsXbGQ6zVV+GHYxC
d7vyRLPYCdzh+9a876JQQle78MgO0FPupsbToyHRygaet7EwqBCKKyui4eGY
0Pn9AhN9A61+XxlIUWpQfDU53xrKkw9Nt9Olr771T5+booJ/MD89flGKmlS3
0eh+E7TGzH5BDpUBTm2yMdtNYYPYeNugW4aiNQvCnNoh/A/K/J4e
                    "]]}, 
                    Annotation[#, 
                    "Charting`Private`Tag$36792#1"]& ]}}, {}, {}}, {
                 DisplayFunction -> Identity, Ticks -> {Automatic, Automatic},
                   AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                  GridLines -> {None, None}, DisplayFunction -> Identity, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                  All, DisplayFunction -> Identity, AspectRatio -> 1, 
                  Axes -> {False, False}, AxesLabel -> {None, None}, 
                  AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                  Method -> {
                   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                  PlotRange -> {{0., 102.93762263160029`}, {0., 
                   22.544354689539958`}}, PlotRangeClipping -> True, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                GridBox[{{
                   RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "102.93762263160029`"}], "}"}], "}"}],
                     "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["3", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["False", "SummaryItem"]}]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {
                  "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                 BaseStyle -> {
                  ShowStringCharacters -> False, NumberMarks -> False, 
                   PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
              GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              BaselinePosition -> {1, 1}]}, 
           Dynamic[Typeset`open$$], ImageSize -> Automatic]},
         "SummaryPanel",
         DisplayFunction->(
          ButtonBox[#, Active -> False, Alignment -> Left, 
           Appearance -> {
            "Default" -> 
             FrontEnd`FileName[{"Typeset", "SummaryBox"}, "Panel.9.png"]}, 
           FrameMargins -> 7, BaseStyle -> {}, 
           DefaultBaseStyle -> {"Panel", Background -> None}, 
           BaselinePosition -> Baseline]& )],
        DynamicModuleValues:>{}], "]"}],
      InterpolatingFunction[{{0., 102.93762263160029`}}, {
       5, 7, 2, {504}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
        False}, CompressedData["
1:eJwt0gk0VlsbB3AkZEgTJXMX0SAV9w3lfcqQDJl5T4Mh5YbSXF4ZSsVFcg1X
hIyROTLkVkqUvnAvkkoJoSJTkbHy7aGz1tm/9ayz197/Z++juO+I9QE+Hh4e
XvRO4uHXI9XpJNV2k82mWrC9Fz92bKyMZ09GO42vgWz2couCd96NxezAw9kH
yu9VsysDlbLrBOrZP+ssxo+oNrMT7cWW+Zi3snW6nmlfPN7G1p1J0zNz7GK3
XXJ2tr/Qy/ZeIBfofLOPLZnwJt2jYZDdFlW/T2dqhL1HN4st7D3G7ug+L9M2
PsF2ubxnKvvUDLtHk9XKHfvJvj305+sMbV4Y2zZeKzrFB98vWy0L8JwL/C/z
Dn5pFwRRRaEKV0thWOzpOq/1kShIl1YyxlriEDkratf+fAH8naHjJym2CB6d
Nht8+WkxDBs77o2vkQAZ6aMNu1KWwo7B81tkfKXg9IPo/HYHaUiPvCGbvFEW
Gl3Lw53F5UHPYjYvvUoBYgZWLL46owj9IUbcUK3fYOtKjw6/I0pwtSbc8Fi2
Mgy6FOXu71YB/dmWhRxZVRiqsWz5UqkG8aH1sWHOq8HA0phR5lsLQxI10g/S
1aFhUP5I3goNSGvca8kd1QDv2wnrjWrWg+Xf4QXNrzeA6pmA1U7DG4GXOXbz
M78WvNZxVfZe/jsUy9il8WuwIPSnkXyk4SZw7dyUKLtbGw50x2lz6nXgjw+T
rVFbNoN7H+dkQ8EW8By4s1BIgQ1lZy47pBoDsLibM/V4t8Idn4GxNxVboWVe
85kFhdtgOK582iBDH4RVk/y48QagXB7IU3DFEMDo4IX3F4xg9wtzgaXc7XBm
/8YQUy9jKO77nGCatwMGvTIKTPtNQG1sT5Wpqhns50q0mLqZQ/LPhg+mGTuh
7ULQlOl7Cwi7KC+g8pclqNWeFVdZZwXuKelfFIqsIJtb91x6ozX0WY+WSpZa
QwX3fli7vA2EpAS7ZITaAFNrxfL8ZgORFqttr5vZwtOX/Mea0m2Bx/ldOP+M
LXTG9o+qb7ODqoZxhgmxg1T+OQ8vNNpBdHSPYaKwPQSteFJXYmAP3kVZVg3+
9tBlm7vXuMAeTCcL3Kvb7aEkofiUnpgDiCl8t16u6QAHMgw1xnc5QKVqhFjz
eQdwvOM8kZbqALPbN3SdqHKA5Jdz6gy6HMDnkcTmLTMOYJe/Ml9LggMacdpy
6us44FPlqbnegAOP+5NMNBkOiC9pdGZ5cWBJ9qu18wM4IKXXNd0TwQG55321
d1M48OB8u0RCAQecNZpcfe5xgLejpoh5xoG08Duzm15x4H1qpqFFNwdWlMWE
HRjiwL5ngU1npziQ+u7o0ih+Brq+Ou69Kc6AoqB5euVyBlykdftalBkQ+qTo
G6DOwK0SIfFVLAZY99IX2esxUFmtJxloyIBh3WupAjMG6ptPyrbZMGDTJq4o
sJuBtq4cpQ37GKgL61HgPcjAPS052cbDDOR3OEgln2AgOSRSwovLgF96uKiU
PwN77ofMqQlkQOflpWmvYAbiYyv4V4YxMGU3OL/jCgN7zzYaDkUyUJVy2/dH
DAMqT2Jvi8ah7yVevUHX0P7pRkt5kxiQKuDbuiCZAbc7lR7yqQzcfuQTo57O
QLe8/rK3GQws8hNJDMlkYGvbc3nWTQa8lol7hGUzcM3epKQjhwHjT0vmTecy
8I3bsXdJPgNpIjnF6gUM/Jhn83RpIQMcoe/tPLcYKBG4MdqHXFSavyCjiIFj
rmVrHYsZaFz4wGTZbQaqT4R8zEOWvbC5uLWEgWyWnGIrsmu3x0uzUpTzXFl4
NdIqg89Ap4wBYa8HpvHIapavzSTSj1d7t0M5A4MvjsSmIx1zMpuGkf/5t4tu
vsOA4PXjNlwk+77gtTLkmbeJnaNIrSPO2soVDIzyKkXZI4tiPvYHI1Na+ioK
kRFLBv58ifSzHXKYRbpoSQfK/4PuUdI4j41UmzjZ6oQ8FCnTzkUWrK7pjkZ+
eezZn4/UfRvOU40M+loo+QrZJNS8ZhDZ6pu1/SfyzYjvPvG7qM/91n4KSOVJ
DRd1pEeYuOFmZKHckKoJMmiD4wk7pKPRv/edkVq79IQOIbmaH1inkPfnX/nD
H8nTp3U1GCkpuHRRBHKt8uTlWKS+/mvB60jzCT2FDKRDbsamHKSLk7DVLeTO
t8d3lCJ1mTdb/0GqterrPEBaSPgaVyNP25bY1yKTogf21yFvPQ4t+RdZPaHK
34xsVau1eYG0zVcWeoVs1rh4rw1pWfL+aDvynWRZZgfSkxvytgs5+WbPoh7k
ufypzl7kvIDYwo/ISMuN/n1IJ9mYyX6kev/Y8QHkjzK7wUGkqfDQimFk/N4g
zgjywy25K19wH5aXwr4i3w5//nMU9xdhHTSGXDy3zu4b8l8ffeVxZMjI3TGs
Z9ON6xO47+II40mkRjT3KzY0LcdvCtlT9EZoGqlXJRqDLRReLjCDVLBd6Y2N
StLsx15vyN/+HZn7Q+UG9s7aFL4fyIt1bAuslXtHAlZOMOATNj3fauVPpKqt
khs2b3o8A7vK6OwrbFbkrMgsUqn9AhurdbjGHWv0gz8Gywk3rMSabRrqxEJ3
7Byee2jeFbYKdiS3YBs293+yTli3j5fPYk28uqKw675p5WAX+4ZWYdWDC1uw
xlEtH7GuSVPT2JjWQmFe5BNxt+XYCWOZVdiX13hZ2PKBD/rYq3r1ltjf5Pft
xhbOThzAbu4MP4rlnNbjYk+JDp/HRqYlh2IXfq+KJLVdTxypCwVSsNIb39/A
qpTfz8Wu140vwv7je7AMq1/JuottmBV4SGqx6WpsxfLBWuw61c464lG5/4h3
9jQTeRJeYPPeGbzCqt0fasNmJsS1Y92Sn3aQfdMnu7AfM1V7sLaJY73Yh5EP
P2LXBl/uwy6yEfiMHZc7N4Bt658axNZs0RjGFvzlNkLOpzvxC3asPuEr1rLs
2ig2Pzl+jJyLgOc37JbDm8exc1vEJrB3X1cQj3ccmCR5exdOYSVYyUTekDXT
2IG2CuL9sbUz2Cvz04hOqpLfsV2hp4iugy3EHgvNH9ju/EBil0gTscNd/id2
tt6JKK+RQmRHd1J9JGaxei4mVOMA4tMHOUQbVivxXQEvDx/+Dw8oE+fI7iBK
tBwi3l0TSnS5lEUUfFdDXD7zlrh22TciaInxYm/NVSQqtmoSIzONiXlDHGLt
7+7E9/5c4lBHEHEaYogCaanESyl5xDnJ5cTApEdEy8w6olxhC3GwvJ3or9RL
FI8cIKb8GCWeWDpNNFrPw4eVMhUg/rVThChkvYAYYCdB1D0pRRyPkiUWFSkS
Ty9RJuqcUSXOvl5NNE9TJyZ6rCf2b9Akmvr+Tsx9vIkoIq5LlBnZTFRv0iOy
i4EYt2Ub8ctTfaKJrSFxQ7wRzf1uO5H3tx3EueomxHnapkRRAzOin7w5cWia
6tS6k1geakGcz7Ykuo1Sk4KtiM+lrYnCt6iv1WyIWenU07K2xKjz1Pxe6tMd
dnTdRKrtEPUa2BNZF6kvaqknRBxofn3qVR+qWjG1pYN6ToxDXKNLLXWm6gVR
a3OpKc+o3D6qtRBD8ylSBXWpLrbUTe7U+f7UnigqfwZVqZRq8ITKaaF6vqf6
j1DFv1NTBHfRe1pMLZGhaqlQy9dRg1lUDpuqup0aY07lsaUe2kW97USd3k/d
6kGN86IOHacanqG2+lDd/KkT56m9F6nPg6lVodRV4dSoCOpMJPVbNHXkb+rn
q9SweOqaBGp9InXFdSo3mfpfCvVTKpUvnSqd8au+Qe37ZVMmNSKLan6TKpJN
zfqlfg6145dOudTOXzrnUZ/9cmM+NemX/weIA7I/
       "], {Developer`PackedArrayForm, CompressedData["
1:eJwl0wPXEAYYBeCvL9u2bdu2bdu2bdu2bdu2sVqtVqvV2p7O3nOe9wfce27i
Jh2rdAgSEBDw7ddzQQlBaMIRkShEJxZxSUBikpGSNKQnE1nJQW7yUZAiFKcU
ZalAZapRkzrUpxFNaUFr2tGRLnSnF30ZwGCGMZIxjGcSU5nBbOaxkCUsZxVr
2cBmtrGTPeznEEc5wWnOcZErXOcWd3nAY57xkje84wOf+PIrT37wL4GyDU4o
whKByEQjJnGITyKSkoLUpCMjWchOLvJSgMIUoyRlKE8lqlKD2tSjIU1oTiva
8qvwznSjJ33ozyCGMoLRjGMiU5jOLOaygMUsYyVrWM8mtrKD3ezjIEc4zinO
coHLXOMmd7jPI57ygte85T0f+cxXvvOTIIEBAcEISRjCE4moxCA28UhIEpKT
irRkIDPZyEke8lOIopSgNOWoSBWqU4u6NKAxzWhJG9rTia70oDf9GMgQhjOK
sUxgMtOYyRzms4ilrGA169jIFrazi70c4DDHOMkZznOJq9zgNvd4yBOe84rf
+J0/+JO/+Jt/Av8ff1BCEJpwRCQK0YlFXBKQmGSkJA3pyURWcpCbfBSkCMUp
RVkqUJlq1KQO9WlEU1rQmnZ0pAvd6UVfBjCYYYxkDOOZxFRmMJt5LGQJy1nF
WjawmW3sZA/7OcRRTnCac1zkCte5xV0e8JhnvOQN7/jAJ77wjR/8S2Aw+ycU
YYlAZKIRkzjEJxFJSUFq0pGRLGQnF3kpQGGKUZIylKcSValBberRkCY0pxVt
6UBnutGTPvRnEEMZwWjGMZEpTGcWc1nAYpaxkjWsZxNb2cFu9nGQIxznFGe5
wGWucZM73OcRT3nBa97yno985ivf+UmQ4PZPSMIQnkhEJQaxiUdCkpCcVKQl
A5nJRk7ykJ9CFKUEpSlHRapQnVrUpQGNaUZL2tCeTnSlB73px0CGMJxRjGUC
k5nGTOYwn0UsZQWrWcdGtrCdXezlAIc5xknOcJ5LXOUGt7nHQ57wnFf8BxjG
/90=
        "], CompressedData["
1:eJwl13c4Vl8cAHDjDdmjrIRsshMlOjekUklIEVKhFKJE2mVlFJkZlR2RTYgu
GRFt/CjztVf2SMbvnOP++Xne53u/657nPdvOXTG2o6WhoRnaQEPTB2Z5ufj5
CBr8TALVHejJJ60WlEqCodNfC9tQsDYBQl4tafWp5pPJG4AFuwAfoXT+DOtF
6HlnU/QjoMd/6c6tV+Ejru4M+Rs2OQFaV7sEJcXzSc6LthGeBnzE6Jx9a0PP
BCg7ahJUwJNP9h1jZBc+z0dwJo2ncfycALH5b/X1KPnk1J3SRPZCPuLUnHHH
zsQJ4PDOVrLmWx6ZVGTywm2ej7Bu9I49d2sCPBNRTH70Ko/89yzkdoAGP8Hb
2JvdZzoBzjtpq16+m0caU/T/GN3gJ/g+eHx7pzgBFmK46dxP5JEKZieT6or5
CbbDggmDTBNgeUj+ZK58HhnPNRr6ZZcAcSjod/ie93/ARsbu6y2/c8loA4ni
hLcCRJ/8+wftbn8AAxiYZw3KJSt2AqcDOwUJXZ+o+Br5P2C3xbmW29q5pKBE
/kJ1riDhbMH5fKp/HDzrzzHYP5lDmlc2+4gobCE+eMhnW8SPAy1lV827yTlk
/Rm+ybSlLcToN37OYoVxcPpwpLWoTA7ZOXc+X6hGiJCnKVK+/H4MvE44Le5l
k03y9d3OeRq0lSDl046YGo8B2YjZkzOeWeS9pWfDW48LE2YJ3btNhkfB5M7t
JeFxb0jTOIH7LdwiRNyT5zQHvUaB9AfP/wzqMkmmDyVvv34XIZKPBajziI6C
2t57X6nLGeTbFw4s1o6iRMUU/9fC6BHgltnq/ODPa3JgXIjx2LgowbW/iN6S
fwTEyh5MVJlMJ9OEr8f9uLyNSJpJtyqJHQbZU2e5WGjTya3slxXWBrcRL7x6
p3zEh4HG9q0bRETTyIMj4OPwWTFCyN39/N3sIRCRIT94/8grcuXa9V2pbWJE
veFU/XkwBPgyrsYe9kklReIIqQPHxImbDjQ+/34MAoasvvTk+hTSU2+onnNV
nKD1KvUdVRsEx3Rlv/6pSCbVXd4qn0mTIP6KjylpvBgAedlfCl2/JJEKfdLl
9oaSxGTWCSEd9gHwlYOv5ddEIpk/Ou59clKSMHy7acd9734wwPwwRUA8kYxw
4a+yeiJF0IyWfr1G0w8ORMXyWtgnkLF39monykgTm30P8GU+6AOpL/PdVt/G
k6qVfXEGpDThlMV5q4qxD7Q3zxyM5o0nXeU+SDfflyH47+bElDj1AunX/isJ
qS/It8wvlmO1ZAmf2w83/vhFBbkaX/780H1Oftet7O6ZliV++y2qXDSkgkc/
6T09aeLI26I9mb1JcoQHswTN6Mce4KL8tW+oNYbsqnFYbT22nVg73bH5l34P
aM1hGP5bH02WyEZ9nZ3fTjzcffFq1adu0ELTqz337Rl52tllyS5anhB+OO65
z6QbLGy52P1gNIqk43er8b2kQEw3VieHXu8CD5/8eCPbHElmaf8MZ1dTJFyD
QuqFjTsBX+Ah79q2CHLqxLjw8XlF4ufVH6Gdmh3Aa6pfZWwunLSLkdGJyVUi
/LI9d+YptgPN9G6aEqlwclzm+R2+HcpEhqyqX5z8b8Dp9flgmUMYWWlVICgd
oEyohghVl+/4BZjHdHZTy0JJHfaZcv5OZWK82Zo4ptsG1EN2FJ8XDiU942xf
Mh5SIWTl3npHc7SCqX1XjE6eeUqWx2Rt+52lQujyVTpID7WARtUkn+n8EHJ3
nU5eDYcqMTSufbe0oRn8/i5XlCMQQvop5+XNXlYl0oTY92uVNIGD15ZYJoSC
ySrHJ3xPq1QJlqHF4rfZP4FP0pcxyrYn5OrB/HGSdwcRwujAYpr1A4iJ0A2k
aD0mEy4zNCTa7SA+H6k8ZVTwHTSPLj064BRERkpm+IjU7SA+MEfTrLl+A3tM
q1kPuAeSXBnvAj3E1Qh9v1SHg25fQEdO56B5XAAZqfAqttdDjWDIkO5m5msE
NHIGH5Z++5O/WBUbImrUiKgdGgcFP9WD8zRakvtU/UnKVOehUtadxIkC27eP
Aj+Cm3M21lVxj0gZXSG6G0d3Ekk2nqKx5jVA7an8rnsCj8jN0loiU347CWbv
9tYK1SpQPV3V+THVj3Q8fadBqHEnUa3jk/HZrgL85hvkSZb0I1M43pikb1An
ltw3Pss7+g4MH7ovGVfmS8qXCS/VqqkTnO1HtHQHCsHgQoNVooMv+e02Z2es
uTphJLr9pEZIDpjaU/teersvqVFZmq/npk5wg2SvyMepIKRc8uFGGl9y/z4u
g2ZvdWJf+LuzzZufAZNpRxnvQR+y0La+71SgOtGzpZmDaekiUHnsz7W9x4fM
FM1Q+g/+/k1c1doQ7zMy8e2XY10zPmT5vtX0807qRPf9rYsl79LJzKy27FBJ
X9I05R31Pz2Yp7Mch/OnfLI4mUb0k4cv2avGsW+WWZ34+WaPdX9zKdmxp36P
wLgvWUQfQbEmdxJ3q17M/95QSf57HSlxwt+PrCwSOBx3dieR7duaeL6smhy6
SE3qO/6I/O/lfAfPlBrxQ6B1ZCGijvTb5SyiaehPqtc6XaB1UiNWKli2no9t
JIu6f8gFPQogj1YUz3RM7SBsBXY/dGT4Rurt1j6uXhlI1lpFPrx4cQfBzJvW
2NX0nYw69UxnUf0xKemmV9/1VZUodzFwNyv/SWZ53d0bvfCEHNaWi0jTVyV8
nVhNquyayQA5ar2fWQgZfGrkJWeeClHRxhs1LvUfqZnxIvP5yaekcGbqHVsu
FcKm457dwQ1t5Ms0Sui2R6FkdAD7jhRvZeLEUDPPxZRf5My3rIdWmWEkTcaq
qU+HEhF2xqTrok07efriSWc+2gjyzU6TRK0XisSd4pucfZqd5JeAJ9E9TyNJ
no1SVSoBCgSnyKkm+7Yu0ig7coSX8xl51uOmje4FecKP85m43qduUi0jgy6q
IZoUZ/v+2FptO3HItb/1YXEPWVNipv/7RyzZ+D78npiCHNFV1PifnT+VDJ3U
DxKseE5aVNrOJgjIEkd1jzmbOvSSbF7m9ApLL0ml6ehrU4vShPVz7cYSiz5S
9HG9pPWhBNLFaeyJB500MeoidIlVqZ9UeWPL+88rkXx2VyPpE60UMWd0N2UD
zwDpYpa8MjeeRFYkJS+LzUsQYNOJSu6Ng+QX9aNdb56mkO3MxwwPcUsQkyrS
WrM9g+RdrpYus62vyLcGQU5DkuLEaF1LWt+nIfKTvZpGYU8aKeJvoW2uLEa4
ejqLE7XDZE17M63kyGvyzyXe7xNnthHLl98tvUsaIbc8eXUq9Vsm+XHwNqv9
I1HCVeOnuuHTUZLqthx3eiGLzDiTqHXBWIQwsO2XEHk6RtrnX5C8W5BD6jy/
HtjctpVo+PDESdV1nJTtehhb+zOXvPwmd4v3CSGi7dzZllSbPyTv0yuSN+D/
K6bpLMX4akEiKDm2Qf3sBDn9+nLtN/cC8nElt9M1dwGiQCKr97DIJMmXtbeI
Na+Q1KlZ5BsV5idK9LnMisInyeRtG7efYHhLOh33fORWzktMnfAss+CaIrcw
qXX/ci0mSduCY3Exm4nKqMyyiptT5KNGb1X3xBKytEK/8rXLJsKFbcOixvAU
+d3hY8ZYayk5vLwibAB4iF/nN6zWWE6T/V2tfHosZWT42XT3fm1uIkjQQ/E1
OU2+q0zZPbFYRpZ7PLTl0OAinJhmuqIlZ0gjXuUTLfXlpPx40Eq8HCfhOp6W
wPZkhuyvs5QfufCePNPiI7KkzE78kK+hFV2cIY9Ud+ha5r0n5/Rsv969ykoM
7vO0ETk6S7JoUjZ0PX1P6mXtZczOZCbsJlaPyCbMkpt1DLWCl8pJg2aLjTld
TMS/23Kni6ZnSd0zvLc1y8vIszJ+h76yMBJbjK4np4I58hJjnPHZmFKSPTu4
8qnKBqJu6pk+u88c+WMj63+u2m/JB6ZG5nXH6YnaoJnEmfdzpJdQV6qbRh5J
PduS8tqJljjW+G92dXCOvDFVd21oJoVU0fQ1zKGugfRyLqu2hTnSMS+d+3Rq
APmxjDZNeHgZuBdEDnTOzpHy3d4vxAejAf+FKqudbktAYfW/Er/uOXKWdBJ+
5pcDTO/Pr6TSLQK6sS/Z54rnSCvhqLHB2DLgoJ0/3BM5B/aoUHXCb8yRsm7T
ETa3akCUEuV+/Y4Z4Ptb8Nd3IRjnK2366+HPgCfGtK+yfRKcYFz2dY6fJTli
VAZ+tv4EV0NiW65tHwdNUhk6LqszpIxZrFbk1TbA1bNS+urZMNhy5Nw9McsZ
MuVVLKOZdyc4snGDEY/UAOCN9uRcjZkmS3WYze2YqGCw54Z0SBsVrKQXS2kX
T5H+TUPdViz9oHPv/aiJq11gJ0sHvUTuJLkpZ/MCg8EQKBGz8Ior+gU02J19
BL0mSBuxYAUpzlHAajZ6jlGvBTBvvZdU6TxO6mvyazMvjwMz85OEpPgPECQ6
OnRDbJTsYOlR5PebBO3GuqNGql9AIKv3md/iw2Qof/HpS1+mQCl3Id2D6DoQ
kHck3GV1gKSRb/L+JzYDrOyLRaLOVoOmg5dDtIX6yZnFutyq/bOg031P9tNH
FSCm7ueTiq29pOuwo27/1Tmwv0GlsE+6FKgdlzo/RdtDhrEdVjmSMQ/o2Dps
NOUKQdpytoq8Uyf5Sd1t36HcBfA8oYFuuTwHHNGSjtn15hdpdWNgUbBiESQ9
m2gwYcoA9OdP9XU6/0eucHyffJj2F5yY+gRPwhQgIjfhKM3dRDZHH+Lb9GwJ
WOWqB/0qjAf0FVtNtkZ+IwfSBymng/+BtHN96qd5YsHmAXIP1bCBnNEsbfhj
vQws/Q8x3VqKAJqyCQz2+2tIl0dRP06qrQDXqqlWD7lQQDktM8K49T3ZJB2y
MMKxCpz4KKGcm0PAlhVDR3q6AlLJ5lrPjQ+rQKp9yVUi7zF4nXiSf+xEErk4
tMd6n+ca2Jh+NJRtIQgYx+1Uc97gRPLrc3VvYaYhrqq9axZyewzYuC1VAlji
wcIugn2bOQ1RoHCGy1QpGHQEXuspEskFlFfVh96m0xBBH+/deV0XAhTv7+Jm
rCkG1gXfg1zGaYjJPSVX/jiEgol0Nb9CvQrga7iRD6jSEnYGJsp774SD54bf
nHLUq8EV5m+x227QEpuK3EMibkQCmxiu7MSLH4G2up5zXg4tcaErtbXk/TPg
9yvAYiz5E7hLry45PkxLvLobTPfcKBY4Dnm1Z4x+BvHydpcbxemIt363tyyG
PwfPDITd7x/8Bg4wiRVfM6YjPl39e9ZyQzyIuMEl8fTFd7BEU6d08wEdMRAv
1qNongAmRre/Yl/8AWaI3e5tOXSEla8XKLmZCCZcNI282JvAV4Zsg9EWOqJT
Q4zhRmYS2PEiXU9Ruhk4XSDqtq/QEToZ97YE/UkGt8P2sHPrtIC/Yst0EeL0
xK/acMs9yylgGweNppjUf+B7Yh3hpENPbNCR1Hq06RWQKB1WT2BpBdNCOd/N
ztITjLs6qrw00oCjOmtR8HQrOGW0ueLIfXrCcGIpLF8mHfS4vjjeltkGeAYz
W6Sj6Ql1g/qRFtHX4Mgeo88cF3+BT9aP3tPn0ROT+62j50UywAuQILxD4jdo
uWMV0P6JnnBdK3MWmc4AApnjy/xlv4Fslabkt056Yq8xPV1LXSY4rhf4NMq0
Hcw/1lAom6YnaJcGe4WT3wBKu1xU1ng7iC1lf/mcgUJEP1diZjuVBf6ckom0
d+gAPSzWOpG8FOJ8XrnXAns2sBTatni/vwPYXhZo9JKiEEszoVndddlgianC
deVsJ3jnvDZ/Xp1CuKm9fuijnAOKHG+cz63tBOH7//JL61IIFgOPgIg7OaCa
/0tJ8vYu4PIww7zzGIWQUd/KmtCQA6j37+/8L6QL/MlSZXxkSSE2B5/Vv8iS
C14y8cjXU7tAo8495mJ7CnGJK9eu6XAu4KsRor0q2A2s3Ex/tLtQiNxIxrL+
oFxgcUm6Oky3G0jX7xGau0khrj8AWzZ8yAVRD9oLRmy7wXNlwM3rRSHC2zUZ
ni7kAunawBZD325wr9+aTyGQQnTk1b3yV8gDQsEG/BWvuoEBrbbW7jAKwbD6
uCnMPA8ElZRyUj/A+LW0OYXRFEIr7WtIv08e0B5YDmbt7AYXXxflyMZTCG/h
xem7eXmgzOJWAPgL74N3A4LCUynEjEG9RE9LHnhUGTJxgqMHnJcQnq7MoBA/
fZQir/7LA+eOdbW5SvYA962V5kM5FIKyd9J4h2g+aGVK2xe2pwfYXBYCjEUU
Yuwae7Ti3nyQJLB5JPhoD3gJDNtkSynEhLXy1kOW+eBKNI90yJkeMHMsq0b/
PYWoYPDvf3gzH0yYB86EufaAm5QHCVYfKMRBykjR9rB8ECYvYLLnfg8YDy34
nlFDIRT8HHcNZ+QDmSkVhv4nPUBzsMVtro5CvK0yc3pXnQ8Oj/hsfPq8B3BQ
2PZpNlIIebltt5Zb84H14vCLh+k9IMbH8EDXFwrxyrCYODyeD/5u//f2emEP
qPrIn3v/O4VIE2slX9EWAD6JKONLlT3AR5DxgHAThSgeeq6rz10ATPMlI6Qb
ekDnlxsPtFooRPw91t5xsQJgf92/qb+pB4QFN/SebKUQxzM4Xr7YUQBGr9ty
pHT2AK5rp/RcflGI6vHPomBfAbh4Kpw/aqAHXAxXpxFvh3NRfJzTb1gAZAfm
av3/wHu9VfODnx0Uwnr+k2GoZQHgpH8tcGe+B1TwfEt/0EUhlAs/m5ZfKAAb
3/4j/i73gF12es86u+FcVM6fG7sK86c6NV2npwLGo6yfdlMpROflLx4idwtA
cdXVn9MbqeDFBVfpsF4K8XUrW9t+vwJg/u+0414OKjhZ0+ab0UchmD+GDTuH
FIDr9XJHAjZRQcDB10Ef+ilE4z7f9JjoAmBp7nO1RYAKSocmpVoHKMR8tYKt
QEIB4Dn2u0lWmAqebmLMLhmkEPQflIej0wpAcnCl3R0xKqj9vGt7zBB879XE
XUI5BcD20JrEdykqGDMdfew5DL+72OIaUFQAos5kbrOQo4I85TE5pRFYL+9H
b9uyAkCw/tPqVaACI63sxV7ofbtarwd8KABrlz+6O6pQQdm27rGoUQoR42j0
8unHApDwMMvUSI0KHLemmciNUYh/XWoR0Y0FwGO5Sl9Ngwoy7awFy6AfFQ88
mfi9ANxUmzrCr0kFYbdldh8dpxCyxdJxFc0F4NzHr7bXtajgiZeZZRX0xf1u
Dl1tBeC2/Jr/j71UsJN/I2X3Hwqx7fM1crWjAKQJuZYp7aMCiy/75bKgn6oU
MbbuKQCFTUa1wrpUwJ7XHsk2QSH07uoQ7/sKwNuW5Va2/VQQ2n0w2RG6clKH
v/BQAdAUd5xd1qcCWZHlow3Q1+QvLfWMFID8czmbQw9SQQZDuhv/JIWwcd6Z
ljJeAJre1WpJG1DBUg6LsR106YNEmMNkAbjhle5QdpgKboe+puZCX8l4rvBm
ugAsyfZxMB2lgjvaNccnoR8wpUxNzsJ6qX9LTAypIHXO/ZHiFIX4U+rWobZQ
ADIEBy+8PAbn9Yrf2xH6+WdyDRx/C4BT24GlLCMqUG6M3PwSevmt800jSwVg
WEMj+P1xKtj3K+vWd+jKr0T+1izDPs/nSX0xpoK3jBYF9NMU4rv/YaXDqwXg
WNRqRKYJFURaEXny0F2aRj2+rRWAXW3LDIGmVJBNW/vkBHS2DJqfJ2gLQebx
TE+HE1S4j9YH70LfMpPWHE5XCMR+ixaKmFFBX3K2/0voT0bz+37SFwJl3aKp
ZuhsnWa5FdBp0rbR8GwoBF4pl5WCTlKBTbLE+x7oNXaGD/kZCsGP5hKvbaeo
oO1vT/kydB3uRlZhxkLQq1bXWgSdxrEvnW8G7m1xzEtxpkLQrxqpeMScCh5/
0n2gCj1VxYVhCXrKrEBYLfSft9+5HIQeW/b76reNhcA9Z+siYUEFnzOYjltD
b7fu6EtlLgSVLAlW76CzP/bc5ga9W2Ewz4ylECia7cwXOU0FO6o7532gW63k
ejOwFoIrY8IbvaEnfomtiILu9U3bogh5hNWZIej/PGXupkNXd1bz02crBJL/
HiZpWlKB+61dNMXQ+Xlyi1qg2+n3DAZBn+sz9qyFPlCRP2TPXgh2mdyQ74J+
24xjuAm913K/bAf0EHeaJDErKjg/eaa4G3roBf/LJhyFwCoiS8Aeuhn5+f4Y
9Ju997Lroc89exiSDp2fZNJZRH3QoeTIcRYCGV+//m7oG+JudtPOUoj+zszc
QOhSP1M0+a1hvYkJnizQu4o9C8agp7p2BB+DXu1GsG2Gvldz5qAWVyEwu3R9
5jb0E87zvULQV86odAZCDzIXPvka+gxvbJEEdDs5Nbff0Pert5b+B93Acs1b
HjpH3FNSiLsQFOXmLCxDj8yUHlaFvnThGos1dHbfcDWxM1RQ81zJYDf0o0/a
Tr6EHv/Gy/UA9JtcM68A9KfFXGNN0I1nTqzZQZ85+bJTD7rrSuJ9Zp5C4PBd
6bE3dKNLfdwG0OmtHm8moBvpcW1Jgs4Qkqp3DLpMCJXNEXr8tUKFMugOnL0+
JtDzqq4xPIMuU2JNNENnzNCvOQn9zQKxVgX9FTebyR/oLPxldJbQ3X+Wbx6C
zvioYYDOhgquZrPePgP9H/95edZNhYDO/vFNPugB5NTMOeh6dcq6ytC3Zxiz
y0M/MmVxyR66t4c29Sj0vz/nprSgq9uXEQ7QLW3sHlyG3rg/tvko9L5zDLyO
0L8+TBP1h162plNiDf23hfyIM/R7H51dE6AbXjeJdIRu4pG3xxU6sD3woQT6
/mt2125C9357NugadC5zVZ4f0Dn+3jB6BH3IQ7n9OnThc3YbB6Bf3bSUGwbd
zMW00gN678fktb/QJTRu87yELq7+M8UT+rmAyTm2zYXgk82a22voSWdT/G9B
zzh41VwYuq7XdGM+9CfbTHnvQGe0XC5ThH7fbECiHPrwb6/Eu9A9qp+IAugH
fv26XQtdtltR8T7098pmEUeg97/5IPMFemNJ0tUH0Bc0xZktoO9efN3UDH16
oKjoIXSx3rm7F6CLlITd74B+nMl2yQt6vadf4FXokqJSn3uhZ9S30ftAH2kT
enYH+lhLscAI9GhnCpsvdB/6ouRH0K06DttPov7HdG/2gx7R6/L2KfTtuTdC
56BzcG2bQG55XPFTDPSw0pT3S9A/VEnXPYL++8if9iToPn9/jKxBr906He8P
/dkhW6MM6Pbv9spRzlLBsVufjAOgK639rsqDfizhtQMT9JXL7pRA6AlOJzRK
oWtk8KazQg+emSlEfuD2rxMV0AMixaQ4oe86HHYgCLpugY1bLXT+GMUkHugl
HpxtyCM2D4U2Qm8v1BTlg64/7XDpMXTxy3eiv0N3XMlaEYAuN/emBznhzxPf
Av3QCfHfQtDpcv479QT6+JXXqb+hXymPKhaBbjnf/xX5EOP5j13Qt8zQ8IhB
f2karRKM6pIWGuqFTu645CSB/NauMOSVn5uZhqCfuvfzoxR0Y+8Ps8irMhsd
R6HPsiYUyUBnSf+qFwKdZbDq2x/o0wnOKXLQi4nP4chjbr9Tm4ZutFcrXB56
YXRpH/KqqOyVWejhxzLkFKEzzplKPYX+cDKpdgH6NzvBSiXoP817LyD/z/dZ
8BJ0+gf+J1WguwO7dORmz/e2LUPPeGOXogq9uV+uC/n5jj6xNeiZHftmdkCX
PjW4KRT6mn6gIy1vIaBwCe/bCd1cIcYAuQFj0lF66Lvsz5ioQ9fRynZHHt9b
qrgB+pvyeDsN6E/UyxOR07b/4GCEfp6P6rEL+qWGqi/IxfWYY5mg879XNN+N
5vJ+aBq5KrlPihm6sf0tTU3oDHuZ+MKgKxz1zGWBzslZt2UP9ANsYnuQp+2R
nmdFcd50NiGPma45hXxIvVmTHbrU4bnHWtAnUu3ckf/Z63WPA/ruEZYD2tCv
LNGEI38SSARwQgdDgl3I448bZSL/3L0SzgV9bkDWYy90jStx1cgz9r57yQ39
9MAuDgDdTrG/HXnqme6bPNCd+KWCkM8xtkwiv+a7wWwT9HkDno0EdGBfTQlH
51i+nMpmFP8OjS/yefkcfuRsHer9yH+MJI0hz+BmlUU+z6wbzQt97eQBk33Q
QznsdyP/rHXsKB/02zUjJchb2N4fQr5po3YPcsaRvew60B8Jyp1ETtcqd50f
eh172Dnk7Nnhtsij0vk3CvCiPR8sQv66dMUVuVlY0kPkhfHKy8g1NGjvIO+6
q7iM/CvbzX260A+H0j9CrupYcl0QOtutKl/kFJIShny0PbIN+bRFLon8aQB7
HPI2QzftLdAnNV8uIj/jwZeCfKXyeAJyhi2PVfSg37klkoVcf+jMDPKZfhMb
5Bc9AgqR23A47xeCPpUjGIy8/+NsGfLDGrejkK/d6ilHbmxnXY187+2hX8gt
+oz6kEvwXP+E/H2lqfBW6BVHKpj3Q2fSDvyGvIGx8ixylUIlFeRbO+JbkD9I
ko5GfjOt2gi5jmn8b+SR4Mk35J9izV2Qd9u97EbO3D7LKAxdLPhPMHInthf9
yO9X39yJPGG1Jx355QvFw8jV39CcRy7p3FyFXPfaj3Hk8pG+IcizOuo6kN9W
GJtCbtnwpxB5IHXLDPL0BwZzyN/SnPyN3HHQmUkfenZ02iLugzpJIwLdaKxy
K/L+qwzLuF5wWwT59ooDSsjV3D+tIr9+aPde5Ezhnwnk2oef0EZA1zKZt0Q+
dMHEGPnoxHEKctYXu9yRn4gosUH+6FAUA/KJoZvByKs+iFxB7nevnQn5wI7y
NOQ7Jn3uIDcK2caC/H3n3XLkb1hP+yOPnVxlRZ7sT/xALiOrHIH85s52duRR
anSDyJP3b0hAXmRVwolco5JzEfmMx/vXyAfO7eNG3n1UZKModN3XHgXIl4zr
eZCH/lIQRB7ervweOb3C8c3I34mryiB/bq9Yi9xHOIwX+Yijujry1MntX5DX
rjXxIRcp0tRDnnNTtgU5zzdeAeSlnuQx5D+ulbYj375LRBC5ubbeaeSzjod7
kVeESW9BvkxTb4+c1759GLk+VUkI+TlAuCDf3rBvAvkiy8atyBvuvPVEDi9c
s8iZ5anYNcoUvUTxXFiXkLPqvBNGTis2H4C8svHWKnKLeCcR5J/9ykORK1BG
6Q5A37sgIoo8dtw7BnnMHgtG5Bf0f2BvvDYcj/yy1BozcpZ6223IV/8efYVc
iyuZHfny/gXsKvfz3iBnWz7IjXyhzF8M+Qf7mTzkr9MObEZev5lOHLnpUbVi
5AdO6PMj17x0E/vgjuvlyPto929BzlM6jf2gW20lcjWud1uR80WekECeXsBX
i9xbVEUUealzMXaWuYufkDcpvRJD3qy7RRJ5m97cZ+RpS5kSyPs9HbG/Cn/w
XRSfw3lSyE++Kcfu3sfWjNwopFgGOW8nuxRyO8vF/5Df4j8nh1wv4jh20ybq
L7w/8SzyyK8ahGPXPfK5A/l3mUIF5P4rLdijqlS7cT+7uJWQJzaySSMf1XxG
Rf4qwkUZuXyMHnYib6UPOfeRLyrIhexvYTdqnxvA+eePqyK/7JSG3YbhzxDy
AUE2NeSB15qxuygPjOC6HsrvRH7lBp0Mck0/7zHkzIX86shX3KWxb+gU+4O8
epCigTzJ7Qj2b2qVE8jvCk5hP+nqip0s2TyF/Oiu/F3ITVqCsWftvTSNXMjs
+m7ksZpZ2J9XvZ9BPnpNQxO59ItG7IPPW2aRmy63YBeJ6seucuPPHPJyb/c9
yIODV7HfMmZYQC7FxquF3NGPTxb50eNj2J/LRmMXZJXHLmL0YxH5Jn0hbeSW
IQT2KcPiv8gDz73ErrzpBHZr0+tLyJ3EWfYi55i0w95grvoP+bE+d+wxDe7Y
d52ZwK6SQsX+LdUPu1BxwDLyth17AHL6BxHYabikVpA/+BCGfc4iCXufQyV2
2eNj2FPVcrEL8O5bRS4isJNAfieyDLvhhwrsm3vuYBdf/Ijdy5lYQ86SXos9
0vwndi3LdOz/edLtQ96Z34597hA3zTboSQZ7sdOyD2DP0riF/cqWm9iXLkxg
3+32HbutXgZ2a74F7NU50rTIzZ3asafVrmI/Nn4Hu2Ekmw7y79cZ5JDLfa7G
bruyE7tbLSv2DW9Y6JDftLXGTs/Hg707yBh7SIMvds8LAthTGoOwb6dJwz4a
JYz9EutH7LVq9dgP14ljVzpCS4/8rMMI9thFGeyvtqtgf5e/QRe5tpYCdhGW
s9g3r4pi/3lPBXvUSAj2Kwe1sFtV7cQ+p1OM3aDIGLuD3m7sJrFd2CUlHLA7
1mhhz51hoCCnCb2H3VafwN5+SBo7O20o9kBpXeyM8QewC7kkY3/DpI9ddf4C
drmuIux1wwex1/k/xP5iQy32oAOHsVtvfY6dW74Z+5GUo9hnc95i9zXuw85I
b4Q98dFn7MK1k9ibZ49jN7LpxV60ewV7woAJ9lWNv9gN32zUQ36x9QT21O0s
G5BvGebBft/1JHZDka3YhySEsYczm2Of51bCXmgjgz0lyQI7pUkb++96ZexN
M6exc0ccwU67Yzd2ip4VdlGz09il4/ZhVwi3xm7vfgF7rc9B7NfTzmDPjLyG
3e7KMezFZTbYp4vuYaeYm2Ff/nYW+4Esf+zOjJbYGQrOYY9LCcPeWngWO1fU
eexTcc+x69hewC5w0xZ70+cU7HEcjtjz1Oywv119g32+1AX7gYl1j1Eqwm5k
fx17e7r9ev9HyrBXaHli36F7Afu51Crsyjx3sAe2r3vt2U/Y44fvY++5fnF9
r0a+Yufm8sY+NLPuL642Y/fe5Yf9j6sDduZ/v9bzPBOAfXJi3eX9urBHLgSt
z/3kpfW58/RhVw8OXu8Pue4uL4ewt0iFYk+Wuox9l+XYet8OhmOvuLXuNAKT
2LMcItf78G3d65pnsAsGPsO+KOmIXWJoHrvN4RjsI5fX/f7SX+ypLHHrcXLX
vZ11BftYw3PsXxbWXSZsDbuF1kvsBipO2N0E6BiQ12XGY6+9tO4VLynY1bcm
Yt+XvO4TeQzYKUeS1vvzc92Fa5mw/7iZvF4vnTP2o23M2OPTU7CvqKx712NW
7PcSU7F/P7Xurjrs2K1jX2FPvbfu9Asc2LXD07B7pK77Tyuu9fxt0rGfq133
pGpu7CYKr7EfGlj3a9s3Ye/8u+5qDFewWxhvxv4vIQO7k+i67/Pkxc5vkLme
j+a6y8TzYd85ve7dpuvuH8qP3eb2G+zOl9Z9xFsAeyBDFva1e+t+2EMQe1HI
uj+OWPf/AcQj8zE=
        "]}, {Automatic}],
      Editable->False,
      SelectWithContents->True,
      Selectable->False]}], ",", 
    RowBox[{"y2", "\[Rule]", 
     InterpretationBox[
      RowBox[{
       TagBox["InterpolatingFunction",
        "SummaryHead"], "[", 
       DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
        "Ready"}, 
        TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
                PaneBox[
                 ButtonBox[
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEBitmaps", "SquarePlusIconMedium"]], 
                  ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                  None, Evaluator -> Automatic, Method -> "Preemptive"], 
                 Alignment -> {Center, Center}, ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAz9UQ83NFvT4ACcjRc0WtvooOSRlb
2fo/smAMtn1H6b+/cME+bfoLQEhZ/HTz0fi/o5j0Y6PIFEAlAjLwYIUBwIxr
J0jxcRtA4VEfyMQVBsCuHxZa5FUhQFJN1zJYnArAWT/bhRa1JECce8a+znwO
wHdfiXWNXChAHaMCToUtEcDo+Ab19PIrQBNAC4Hx7BLAHEhH6qJLL0CvXbro
9W4UwOFLuNFKdjFAwrQZeyzyFcCXTi5p5yczQE7MbkVVQBfA9g2MSPzQNEBN
Wg2c+G8YwI5N3okznjZAVwGSQSqgGcAH6BEGjkw4QHvw1fCKpRrAuwI65Aof
OkAyDQChkakbwBnaSQoA6TtAWvIQ60qSHMBYDDtrGJQ9QNANIdf8Vx3A0L4g
LlNjP0DQM5VBCRoewBXm85XYiUBAvijKL5y8HsDfrNHFGHRBQGGEV9YdWR/A
/VGjGRVaQkBuu/q/Xd8fwIyk5QqjMENA19gbDNElIMA4NyItQhlEQF+1i1dq
VyDAVXfP7HLyRECOsZ+sTn0gwMaVcNBfx0VA8HNdKaiaIMBU9AvlXa5GQFEA
qcTXsSDAUwAYl+2FR0DsTsAYaL8gwG9MHnqOb0hAm+93jlbFIMDgdhiB61RJ
QCFStb5LwiDAwU6DJdoqSkAmLAHnhrcgwL9m6PrZEktAl7Q4KiijIMAuLL5t
a+tLQB9qNvbrhyDA8s+HBLm/TECXHbRccWUgwNKzS8wXpk1AfMPtrDQ3IMAj
RYAxCH1OQFsonu6nAyDAkRavxwlmT0Bv84Tq2oQfwLhKp33OH1BA6RSt7Rj5
HsBS+XApdopQQCC2T+XVXh7A+8e3bSb+UEBAlsxjpqMdwFzttoAfalFApqG+
W7PhHMDLMjMsId9RQEd5MnvA+RvAZWep6QBSUkDdkEvFEP8awLfy13UpvVJA
21kwo7v/GcAYnoOaWjFTQJDWM5Az0hjAMaDnjdSdU0BBeFGwLKAXwHSRRZMs
CFRAFe8mh7FbFsDGoiAxjXtUQCApjk5C3hTA0Aq0nTbnVEBVkWqcgFwTwOmS
xKLoW1VAHl8UwcOWEcAsCs+5eM5VQBrc45TCYg/AJ9iRn1E5VkCXIfG5N4kL
wDHG0R0zrVZAMvMdRFX4BsDzCspqXRlXQMOUv2/SRwLAxG8/UJCOV0AaIZSv
qEb5v7/DrkehAVhAnwZPTlKN6b9ybtYN+2xYQMJKvcyQYqE/NDl7bF3hWEAw
Fbhkym7xP65a2JkITllAknWIQF7PAUCgUAn7AbxZQDj4G9a4wwZA7O29ow==

                    "]]}, 
                    Annotation[#, 
                    "Charting`Private`Tag$36843#1"]& ]}}, {}, {}}, {
                 DisplayFunction -> Identity, Ticks -> {Automatic, Automatic},
                   AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                  GridLines -> {None, None}, DisplayFunction -> Identity, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                  All, DisplayFunction -> Identity, AspectRatio -> 1, 
                  Axes -> {False, False}, AxesLabel -> {None, None}, 
                  AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                  Method -> {
                   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                  PlotRange -> {{0., 102.93762263160029`}, {-8.38542599882185,
                    2.845567391136708}}, PlotRangeClipping -> True, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                GridBox[{{
                   RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "102.93762263160029`"}], "}"}], "}"}],
                     "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {
                  "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                 BaseStyle -> {
                  ShowStringCharacters -> False, NumberMarks -> False, 
                   PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
              GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              BaselinePosition -> {1, 1}], True -> GridBox[{{
                PaneBox[
                 ButtonBox[
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEBitmaps", "SquareMinusIconMedium"]], 
                  ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                  None, Evaluator -> Automatic, Method -> "Preemptive"], 
                 Alignment -> {Center, Center}, ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAz9UQ83NFvT4ACcjRc0WtvooOSRlb
2fo/smAMtn1H6b+/cME+bfoLQEhZ/HTz0fi/o5j0Y6PIFEAlAjLwYIUBwIxr
J0jxcRtA4VEfyMQVBsCuHxZa5FUhQFJN1zJYnArAWT/bhRa1JECce8a+znwO
wHdfiXWNXChAHaMCToUtEcDo+Ab19PIrQBNAC4Hx7BLAHEhH6qJLL0CvXbro
9W4UwOFLuNFKdjFAwrQZeyzyFcCXTi5p5yczQE7MbkVVQBfA9g2MSPzQNEBN
Wg2c+G8YwI5N3okznjZAVwGSQSqgGcAH6BEGjkw4QHvw1fCKpRrAuwI65Aof
OkAyDQChkakbwBnaSQoA6TtAWvIQ60qSHMBYDDtrGJQ9QNANIdf8Vx3A0L4g
LlNjP0DQM5VBCRoewBXm85XYiUBAvijKL5y8HsDfrNHFGHRBQGGEV9YdWR/A
/VGjGRVaQkBuu/q/Xd8fwIyk5QqjMENA19gbDNElIMA4NyItQhlEQF+1i1dq
VyDAVXfP7HLyRECOsZ+sTn0gwMaVcNBfx0VA8HNdKaiaIMBU9AvlXa5GQFEA
qcTXsSDAUwAYl+2FR0DsTsAYaL8gwG9MHnqOb0hAm+93jlbFIMDgdhiB61RJ
QCFStb5LwiDAwU6DJdoqSkAmLAHnhrcgwL9m6PrZEktAl7Q4KiijIMAuLL5t
a+tLQB9qNvbrhyDA8s+HBLm/TECXHbRccWUgwNKzS8wXpk1AfMPtrDQ3IMAj
RYAxCH1OQFsonu6nAyDAkRavxwlmT0Bv84Tq2oQfwLhKp33OH1BA6RSt7Rj5
HsBS+XApdopQQCC2T+XVXh7A+8e3bSb+UEBAlsxjpqMdwFzttoAfalFApqG+
W7PhHMDLMjMsId9RQEd5MnvA+RvAZWep6QBSUkDdkEvFEP8awLfy13UpvVJA
21kwo7v/GcAYnoOaWjFTQJDWM5Az0hjAMaDnjdSdU0BBeFGwLKAXwHSRRZMs
CFRAFe8mh7FbFsDGoiAxjXtUQCApjk5C3hTA0Aq0nTbnVEBVkWqcgFwTwOmS
xKLoW1VAHl8UwcOWEcAsCs+5eM5VQBrc45TCYg/AJ9iRn1E5VkCXIfG5N4kL
wDHG0R0zrVZAMvMdRFX4BsDzCspqXRlXQMOUv2/SRwLAxG8/UJCOV0AaIZSv
qEb5v7/DrkehAVhAnwZPTlKN6b9ybtYN+2xYQMJKvcyQYqE/NDl7bF3hWEAw
Fbhkym7xP65a2JkITllAknWIQF7PAUCgUAn7AbxZQDj4G9a4wwZA7O29ow==

                    "]]}, 
                    Annotation[#, 
                    "Charting`Private`Tag$36843#1"]& ]}}, {}, {}}, {
                 DisplayFunction -> Identity, Ticks -> {Automatic, Automatic},
                   AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                  GridLines -> {None, None}, DisplayFunction -> Identity, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                  All, DisplayFunction -> Identity, AspectRatio -> 1, 
                  Axes -> {False, False}, AxesLabel -> {None, None}, 
                  AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                  Method -> {
                   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                  PlotRange -> {{0., 102.93762263160029`}, {-8.38542599882185,
                    2.845567391136708}}, PlotRangeClipping -> True, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                GridBox[{{
                   RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "102.93762263160029`"}], "}"}], "}"}],
                     "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["3", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["False", "SummaryItem"]}]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {
                  "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                 BaseStyle -> {
                  ShowStringCharacters -> False, NumberMarks -> False, 
                   PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
              GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              BaselinePosition -> {1, 1}]}, 
           Dynamic[Typeset`open$$], ImageSize -> Automatic]},
         "SummaryPanel",
         DisplayFunction->(
          ButtonBox[#, Active -> False, Alignment -> Left, 
           Appearance -> {
            "Default" -> 
             FrontEnd`FileName[{"Typeset", "SummaryBox"}, "Panel.9.png"]}, 
           FrameMargins -> 7, BaseStyle -> {}, 
           DefaultBaseStyle -> {"Panel", Background -> None}, 
           BaselinePosition -> Baseline]& )],
        DynamicModuleValues:>{}], "]"}],
      InterpolatingFunction[{{0., 102.93762263160029`}}, {
       5, 7, 2, {504}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
        False}, CompressedData["
1:eJwt0gk0VlsbB3AkZEgTJXMX0SAV9w3lfcqQDJl5T4Mh5YbSXF4ZSsVFcg1X
hIyROTLkVkqUvnAvkkoJoSJTkbHy7aGz1tm/9ayz197/Z++juO+I9QE+Hh4e
XvRO4uHXI9XpJNV2k82mWrC9Fz92bKyMZ09GO42vgWz2couCd96NxezAw9kH
yu9VsysDlbLrBOrZP+ssxo+oNrMT7cWW+Zi3snW6nmlfPN7G1p1J0zNz7GK3
XXJ2tr/Qy/ZeIBfofLOPLZnwJt2jYZDdFlW/T2dqhL1HN4st7D3G7ug+L9M2
PsF2ubxnKvvUDLtHk9XKHfvJvj305+sMbV4Y2zZeKzrFB98vWy0L8JwL/C/z
Dn5pFwRRRaEKV0thWOzpOq/1kShIl1YyxlriEDkratf+fAH8naHjJym2CB6d
Nht8+WkxDBs77o2vkQAZ6aMNu1KWwo7B81tkfKXg9IPo/HYHaUiPvCGbvFEW
Gl3Lw53F5UHPYjYvvUoBYgZWLL46owj9IUbcUK3fYOtKjw6/I0pwtSbc8Fi2
Mgy6FOXu71YB/dmWhRxZVRiqsWz5UqkG8aH1sWHOq8HA0phR5lsLQxI10g/S
1aFhUP5I3goNSGvca8kd1QDv2wnrjWrWg+Xf4QXNrzeA6pmA1U7DG4GXOXbz
M78WvNZxVfZe/jsUy9il8WuwIPSnkXyk4SZw7dyUKLtbGw50x2lz6nXgjw+T
rVFbNoN7H+dkQ8EW8By4s1BIgQ1lZy47pBoDsLibM/V4t8Idn4GxNxVboWVe
85kFhdtgOK582iBDH4RVk/y48QagXB7IU3DFEMDo4IX3F4xg9wtzgaXc7XBm
/8YQUy9jKO77nGCatwMGvTIKTPtNQG1sT5Wpqhns50q0mLqZQ/LPhg+mGTuh
7ULQlOl7Cwi7KC+g8pclqNWeFVdZZwXuKelfFIqsIJtb91x6ozX0WY+WSpZa
QwX3fli7vA2EpAS7ZITaAFNrxfL8ZgORFqttr5vZwtOX/Mea0m2Bx/ldOP+M
LXTG9o+qb7ODqoZxhgmxg1T+OQ8vNNpBdHSPYaKwPQSteFJXYmAP3kVZVg3+
9tBlm7vXuMAeTCcL3Kvb7aEkofiUnpgDiCl8t16u6QAHMgw1xnc5QKVqhFjz
eQdwvOM8kZbqALPbN3SdqHKA5Jdz6gy6HMDnkcTmLTMOYJe/Ml9LggMacdpy
6us44FPlqbnegAOP+5NMNBkOiC9pdGZ5cWBJ9qu18wM4IKXXNd0TwQG55321
d1M48OB8u0RCAQecNZpcfe5xgLejpoh5xoG08Duzm15x4H1qpqFFNwdWlMWE
HRjiwL5ngU1npziQ+u7o0ih+Brq+Ou69Kc6AoqB5euVyBlykdftalBkQ+qTo
G6DOwK0SIfFVLAZY99IX2esxUFmtJxloyIBh3WupAjMG6ptPyrbZMGDTJq4o
sJuBtq4cpQ37GKgL61HgPcjAPS052cbDDOR3OEgln2AgOSRSwovLgF96uKiU
PwN77ofMqQlkQOflpWmvYAbiYyv4V4YxMGU3OL/jCgN7zzYaDkUyUJVy2/dH
DAMqT2Jvi8ah7yVevUHX0P7pRkt5kxiQKuDbuiCZAbc7lR7yqQzcfuQTo57O
QLe8/rK3GQws8hNJDMlkYGvbc3nWTQa8lol7hGUzcM3epKQjhwHjT0vmTecy
8I3bsXdJPgNpIjnF6gUM/Jhn83RpIQMcoe/tPLcYKBG4MdqHXFSavyCjiIFj
rmVrHYsZaFz4wGTZbQaqT4R8zEOWvbC5uLWEgWyWnGIrsmu3x0uzUpTzXFl4
NdIqg89Ap4wBYa8HpvHIapavzSTSj1d7t0M5A4MvjsSmIx1zMpuGkf/5t4tu
vsOA4PXjNlwk+77gtTLkmbeJnaNIrSPO2soVDIzyKkXZI4tiPvYHI1Na+ioK
kRFLBv58ifSzHXKYRbpoSQfK/4PuUdI4j41UmzjZ6oQ8FCnTzkUWrK7pjkZ+
eezZn4/UfRvOU40M+loo+QrZJNS8ZhDZ6pu1/SfyzYjvPvG7qM/91n4KSOVJ
DRd1pEeYuOFmZKHckKoJMmiD4wk7pKPRv/edkVq79IQOIbmaH1inkPfnX/nD
H8nTp3U1GCkpuHRRBHKt8uTlWKS+/mvB60jzCT2FDKRDbsamHKSLk7DVLeTO
t8d3lCJ1mTdb/0GqterrPEBaSPgaVyNP25bY1yKTogf21yFvPQ4t+RdZPaHK
34xsVau1eYG0zVcWeoVs1rh4rw1pWfL+aDvynWRZZgfSkxvytgs5+WbPoh7k
ufypzl7kvIDYwo/ISMuN/n1IJ9mYyX6kev/Y8QHkjzK7wUGkqfDQimFk/N4g
zgjywy25K19wH5aXwr4i3w5//nMU9xdhHTSGXDy3zu4b8l8ffeVxZMjI3TGs
Z9ON6xO47+II40mkRjT3KzY0LcdvCtlT9EZoGqlXJRqDLRReLjCDVLBd6Y2N
StLsx15vyN/+HZn7Q+UG9s7aFL4fyIt1bAuslXtHAlZOMOATNj3fauVPpKqt
khs2b3o8A7vK6OwrbFbkrMgsUqn9AhurdbjGHWv0gz8Gywk3rMSabRrqxEJ3
7Byee2jeFbYKdiS3YBs293+yTli3j5fPYk28uqKw675p5WAX+4ZWYdWDC1uw
xlEtH7GuSVPT2JjWQmFe5BNxt+XYCWOZVdiX13hZ2PKBD/rYq3r1ltjf5Pft
xhbOThzAbu4MP4rlnNbjYk+JDp/HRqYlh2IXfq+KJLVdTxypCwVSsNIb39/A
qpTfz8Wu140vwv7je7AMq1/JuottmBV4SGqx6WpsxfLBWuw61c464lG5/4h3
9jQTeRJeYPPeGbzCqt0fasNmJsS1Y92Sn3aQfdMnu7AfM1V7sLaJY73Yh5EP
P2LXBl/uwy6yEfiMHZc7N4Bt658axNZs0RjGFvzlNkLOpzvxC3asPuEr1rLs
2ig2Pzl+jJyLgOc37JbDm8exc1vEJrB3X1cQj3ccmCR5exdOYSVYyUTekDXT
2IG2CuL9sbUz2Cvz04hOqpLfsV2hp4iugy3EHgvNH9ju/EBil0gTscNd/id2
tt6JKK+RQmRHd1J9JGaxei4mVOMA4tMHOUQbVivxXQEvDx/+Dw8oE+fI7iBK
tBwi3l0TSnS5lEUUfFdDXD7zlrh22TciaInxYm/NVSQqtmoSIzONiXlDHGLt
7+7E9/5c4lBHEHEaYogCaanESyl5xDnJ5cTApEdEy8w6olxhC3GwvJ3or9RL
FI8cIKb8GCWeWDpNNFrPw4eVMhUg/rVThChkvYAYYCdB1D0pRRyPkiUWFSkS
Ty9RJuqcUSXOvl5NNE9TJyZ6rCf2b9Akmvr+Tsx9vIkoIq5LlBnZTFRv0iOy
i4EYt2Ub8ctTfaKJrSFxQ7wRzf1uO5H3tx3EueomxHnapkRRAzOin7w5cWia
6tS6k1geakGcz7Ykuo1Sk4KtiM+lrYnCt6iv1WyIWenU07K2xKjz1Pxe6tMd
dnTdRKrtEPUa2BNZF6kvaqknRBxofn3qVR+qWjG1pYN6ToxDXKNLLXWm6gVR
a3OpKc+o3D6qtRBD8ylSBXWpLrbUTe7U+f7UnigqfwZVqZRq8ITKaaF6vqf6
j1DFv1NTBHfRe1pMLZGhaqlQy9dRg1lUDpuqup0aY07lsaUe2kW97USd3k/d
6kGN86IOHacanqG2+lDd/KkT56m9F6nPg6lVodRV4dSoCOpMJPVbNHXkb+rn
q9SweOqaBGp9InXFdSo3mfpfCvVTKpUvnSqd8au+Qe37ZVMmNSKLan6TKpJN
zfqlfg6145dOudTOXzrnUZ/9cmM+NemX/weIA7I/
       "], {Developer`PackedArrayForm, CompressedData["
1:eJwl0wPXEAYYBeCvL9u2bdu2bdu2bdu2bdu2sVqtVqvV2p7O3nOe9wfce27i
Jh2rdAgSEBDw7ddzQQlBaMIRkShEJxZxSUBikpGSNKQnE1nJQW7yUZAiFKcU
ZalAZapRkzrUpxFNaUFr2tGRLnSnF30ZwGCGMZIxjGcSU5nBbOaxkCUsZxVr
2cBmtrGTPeznEEc5wWnOcZErXOcWd3nAY57xkje84wOf+PIrT37wL4GyDU4o
whKByEQjJnGITyKSkoLUpCMjWchOLvJSgMIUoyRlKE8lqlKD2tSjIU1oTiva
8qvwznSjJ33ozyCGMoLRjGMiU5jOLOaygMUsYyVrWM8mtrKD3ezjIEc4zinO
coHLXOMmd7jPI57ygte85T0f+cxXvvOTIIEBAcEISRjCE4moxCA28UhIEpKT
irRkIDPZyEke8lOIopSgNOWoSBWqU4u6NKAxzWhJG9rTia70oDf9GMgQhjOK
sUxgMtOYyRzms4ilrGA169jIFrazi70c4DDHOMkZznOJq9zgNvd4yBOe84rf
+J0/+JO/+Jt/Av8ff1BCEJpwRCQK0YlFXBKQmGSkJA3pyURWcpCbfBSkCMUp
RVkqUJlq1KQO9WlEU1rQmnZ0pAvd6UVfBjCYYYxkDOOZxFRmMJt5LGQJy1nF
WjawmW3sZA/7OcRRTnCac1zkCte5xV0e8JhnvOQN7/jAJ77wjR/8S2Aw+ycU
YYlAZKIRkzjEJxFJSUFq0pGRLGQnF3kpQGGKUZIylKcSValBberRkCY0pxVt
6UBnutGTPvRnEEMZwWjGMZEpTGcWc1nAYpaxkjWsZxNb2cFu9nGQIxznFGe5
wGWucZM73OcRT3nBa97yno985ivf+UmQ4PZPSMIQnkhEJQaxiUdCkpCcVKQl
A5nJRk7ykJ9CFKUEpSlHRapQnVrUpQGNaUZL2tCeTnSlB73px0CGMJxRjGUC
k5nGTOYwn0UsZQWrWcdGtrCdXezlAIc5xknOcJ5LXOUGt7nHQ57wnFf8BxjG
/90=
        "], CompressedData["
1:eJxd13k8lc/3AHBFl+xSdtGCREqbvbloUXwiklJEoZRERVkqhWgla6KyZg0R
EZkrkS1xLZF9XyvLFcnynZn7++v3/Pl+Pa8zZ845z7zmWXfmsrHtMhYWlqEV
LP/v6YLbd+AnDvQqdPx8krQVsl4NXvFuqRMGJs5p9m2PA2F974/bJwG49exp
7vPIs6wT9ocijy54MvY87z68sivwb/B4J2xe7BST2RAHhtesVgU7I+DotF1z
VXcnLPzP5NE7wTgwu1TyWaskFvLH/Uziq++Ekdnv9+9liwNRxV9uvH2VDY9P
G7fviu2E9gU2MqW1sWDg+69Rp+oCaFntE3nGoxM+k1KK90+MBU5PS0+EzRRD
oerejL6jnfDsJa3tF2/Fgqb9Ei4LrGVQ+NP12gKlTjjzfNVyV9NYEGSjXHaD
qxLy6IvFDHJ0wvkhRbO3irGg+3Fu5+iKOnjwUWuIRlEHXMne5dLUGgMSTL1W
+s43wD7Fojtt1zogBQz84X4UA5rSzbKyhpuhrm94dKliB1QzP9PkqRUD4tbN
rHj1tQ06mvO/mOhvh8/6Mw/tG48GVSvuFagd7YKfritmmEe3Q81tzuq34qPB
w9uPbE4/6IWjtSL8eVva4Un9MEvpTdGg/XuRs9K7AajIkrvtYlEbTIk5ucHb
6hUoDlxvt5w+DKFiksFR4zYoH8owm3J7CaxHgg7t6BuDx2K61EyGW+H4LoX8
kKgXINs5NH7N6G8Y9eQFi553K5T75Pb9UHkUoLI91L55dQLGGz7YLSjdCst6
b3/rmY8E3P8+LpnemYK0CZFvORE/4LW0Zsc7v56DKpWHv0R9p6HAvlzWUyI/
YKS8XqzyeARomhvV3XR7BsZNJVvkR7bAjAlrAa5lESAtr8Tvx+W/8KV374Tv
hhaooiC5Qkr6GTguL/zbx+wflHB1PXsroxmGpioOehmEAwWjn9muuxdgxeGJ
irOgGQqnXonU9w0D2eOiF+e4l6C7PYvvP/p3SEnvS46vCAU8B9s8+ftYaMu8
P9wb3fkdGurKf/tFCwF+0e6H3qgup/3dMLZV5WUTzMqoyXGuCQbX/E+eLfRh
pY2nm0ro8DbBb3zCTT9+BwGv8MHJF+VstMPvV+/w8mmEA5x3E0Q3BIG9MZqX
U9goNJbRD9+usjTCA+GRQuZ2T8GRAv+zO9TYaWvuHRBOu9MAX7/Kvrb4PhDc
0Wlc72PHQbuUzu9Rwt4A2xqn9CKEAsHS6kDViOGVNJFbmc/zL9VDuZT7CzGv
n4AHjQd6ZK25aL6ed1fSf9DhW5WaX3Tdx+DjgScpWV+5aa1+s8rnD9Ohfz2r
mxvLIyC4rEYndysv7TrnRpbRL3XQadu3vqHmB6BVv7M/2o+PtnSyfc2P/XWw
OZMy/LfiPihfKbl37AI/7a7a+SsllbWwiaVXa7rWH1w4/MfRgkeAtvbuTzdt
k1o4I36+686oHxCY/at2q0OANln9OT7I5Ru8+4T+Rr7xHvgoeWIlJWkVzflR
YMVa4xoo/PCgT1mLL2DZfTVY74Igrf4KPahD/Sv0nuhXHpv2Adfc03Ofyqym
+WW47cpSqobqyV0s+bI+YFiZdln2x2paqvx2vyjFKsjv/VWv0N4bBEX+St7n
v4a2PVDi88cdlZBzTEetp/AuCJ6/OL5pmxDtZ6Ml1VC3Au4O3JF3du1dwCJq
mE2hCNPkN7/3ieArhxPal43MTt8B99f0vn9TJ0zTFS62lxsqg9Xb43wns73A
HSeulrvBIrShn1q3PlSVwta6zbmZol5AUnukpUtflJYkwbtPM/8z1Ls6x/Vb
4jYIzY+NE/0nSuMams17n1ECfeNqxtjW3QKcV8YMr8eI0QLZ7bmOpn+C66WW
DyRo3gRG74M4tYA47atB8XGjd8WwcXTO/8AlT6Cu0HZ7N5sE7RNnBMuSMw1q
HP3MfcDVA2zbvfBw4IMEbb/fa3u9a0WwPbNj8ESUO1DXaEgtOitJo6TKdXEK
F0KWzYc+zbW6geK/3ZwbliRp4TtU9MQq8+FZFk0Z7e1uQOiTLofD47U003c2
7/0fvofu01aWJVE3gJVd0Y1BXilanJWbdOSJHLjzqaLqbdEbQFVpMavFW4rG
6dPWTNueDT9PlnR8eX0dXNWn+YpQpGmfdXxTv9pmwlbhQcF4mesgbek3TwKQ
ps25rnyW9V8qHD7oJRNV6Ap2pFm/++QoTeNvM9DUHUiAgzNVFrH2ruC7g8mz
8GBpmpG0gplKYDSc0CgrklNwBXveLlyipkvTVoF477DHYTDwo8zdlSyuwED5
KFtdkTRNO6TAunGNPzSZdNjkM+gCCo9yvzpaKk3rFm/k45g7DpUf3xdQ6HYB
2fy/huno/TdRJUtDQv4g9n2NYeeUC/isrG1zOlGa1uUlOZtfgM6d9JaMIBlX
cDJ0Mar+FsrTcTOfY2UcyItnka687gpGNhr/+71Xmlb/RsOyvzEFtGtUaIj+
dAWegxk3syelaLdKXv5pXfEW/EsJ22h6/zoI+i+fc5uKFC3jXnPs2cJ3YOh8
T1zfkRugSOrqNqlja2l00eaRmdA84KfqKKV+2A14OFjrzv0nSVugcUmejSwE
uV30zY/83UGy1czJbDMJmo2o2l0HCg3sVdM6srvYA0RFZrmV7xWncQolVXc2
FIPw4890ZnffBOblvOzvBcVoH50OuR77WALSvW/tiZi5BXpO/nipt0yUdu8S
t0mJbSl4sLmnwu+YF1B6av5OpFmYRmsRCv8p+wWop75Me2F2B+ir1l+mhQnR
rNpv2+qtqACvktiC1vnfBdrTsT+0b66hmQ41Cp5PqARTtel3LdK8Ad9DnwrP
I6tpwadNOs9bVYOT580chZf5gsI1LUI7VwnSbua58/ep14CaB08iup/eA+uH
U1XkFwVo/FLHG+xavgGjjLARIX5/4GTG0qjeyk/z43+2YW9lLdiZmro8vOo+
sPnxhi3NiI920Lm/+W5eHSjNP7a/lf4Q5GrtGtqhw0PrzK3+bnufDoLG9z8S
oz0G9TqNddvFuWj/6Ro6HrWvBzzeJ1i3zAUAz3hQW9fCQbN8oVWdb94ApB9X
yFgefAoWn/dROsYotFEniQvcWxuB8hsboX/eQcDwo/tWn1E22rTRrYQVgk3A
6Vj8wvTPYPCK3bRnZ8NyGlhtWrxq5XdQs/u/zjdPQ8H3xmTfO9zLaOPKcpqM
7u/glkBT5zHJcCCaqud/+9wiHC1vSuqrbAaVdjtVcrqfgfz4O190ns5BZzfH
DdSyFlDa1rhMZuQ5mFJwFnphOAPnLxbMFcT9AOJPEo+/ro0Cx6S42FwnpqCz
Sv3uw09bQc+1+aiTMy9BIDiln3ZtHB6y6d8o9bQN2GWfk7n1Lhp4uKygC7CP
wqpPTy5td24H8p13I8vqY8C63OlV1dN9sOWMddNrqw4g9PSyzA10v9r2tPHj
DZt2+Cg+smq3dSeYTLlYVusaD47xMDJXTdHhu43pvfpSXUA4fU8ud1YCmDLV
44++RIP5+wWO5YZ0gfh1KxVMKYnA/kXByw2Jr8GEqVuhuUA3EOfY2fXDOQns
yFq4avD9CygOTyukuXcD/2qf7a6xyUDn78U32zUagRPPilmV4W5QZ/8ldaw5
BVQLZ0GVsg7w4+yKxdJTPaC/s1l4L1caUHNTuJN+vhc8EruulAJ7QEFxgtrv
2TQQJv2lguIzCC5xTHVGyPQCI6Ftpk0Vb0DboRe2tJxR4PwzKYbnSS/oLz+l
OHIuHdQYl0oYLf4GdMXSZdKzvcDgc7vuqax0UKfuYxn3cQIMartZSf3XB7jU
2VZ0Pk0Hd+uSZa96TwHb34sG8jF9YI3OYc2AuTfAM+XxxitG0+Cf5+aTuZN9
QPe0kKf6xzRga2bdZ7xxBogbucS/Bv3gAnuUsfXzFJBXe9whcHEWlE8828/r
2w/oK7m/O2slgn0KzxpOdMyBskdTsVNF/cBbovP1NZVY0Ce5yv/6p3lgWP2P
sTjYD25MlF8dmgoF6WcSKJV7FkHyRwGLlpl+4JCVvOrka3dwNmawJahgCbi+
CxvoYPQDxS6flxsG70NJO2/I6sFC3bL4Pd+vqx8w4KW1z/yiYc0rV7Nzwsuo
y8dqMs7k9QOLteFjg5Fp0N/JL+p41jKqhnKPTsiNfiB/bTLUyiMHzu+Yyl2r
v5x6r1XsR50EivNtWXLK8EdoIdr5oqtrOdWUff6eY3Qf4HuuPFDfXAIbvkpH
xV5hpTbIpuo4LfaCTcciNcOuVECad4jUfB8rVdzgzO31p3pBQmIk+zGfGpj/
cirtsAkbVSjCjX/xeQ/4oMN5wpaDDl9vWLGqs5CNupCcJ6uV1w3uNwx1WXA1
wmkNT8ke6RXUXVztrBvfdoHVmWtmKIea4fsXRYcTHVZQVXgdfcW8O4HV+oAt
svyt8O6D0uja7BVUTsnbccWO7WC/uogW53w7/K/y16eO6RXUR9KjQzfWt4J2
rm4lEb8uqC/zPOCWLIX6kNvndOuGFhAkknfyQk03NAjv4N1nQqE+yDIIcVps
AiyKDT7/1vfCDM8/FmwuFGqD3sVALYlGMDVb/rZkXx9UsHG/Xx1MoT4vr39C
k6wHzsMOuv1X+mHODSkf5wwKdecR2bMTy+pAMI++skHqAEyvctpyvoRCTZrP
UFa8VAMqd1/TPvh2EJ4SGJYVbaRQDTTlnqu+qQQWNwZmxWhDMMvq1GWWHgqV
9ezxvg7HL2CBr278btIwZElxuLHzJ4Uqtfm3g9yqz6Ax4qDw6mcj0Iveap3w
B71PkzSRDKOBgeRBtpMBo9Dr5MeChXkKdc0A1Og5XACm1D9U/bIcgyf+jEYK
LWenqsvHUOz25QAn/3C62c6fUOqw+KuBFexUtpObRtgl00GDXODMCN8vWKVx
hjLPzk4VXzjswLo8Hmy1utp949MveE2ngE11JTs1JdZMZMw0GMwOaVhqu/2G
PKIKgaHIjaN27XRcYQFE9gt0iXOOQ70z9znMkPOsOqX8gCsQzqhSededGIcG
gaMObhzs1PaHV7tzpWIgW+Lng++Tx6E4zdVBD62r5KW6ir00CVq+q3vk9HMc
vr7nsykR5fk7eadfzt5MeO/wSmGwfQI+GytpDmZlp744XHspc/c7eJmzNnLd
jQm4peLsnWfL2KlWzwUyYs+/h1q79zpmZU5A1ghxC+MlCtXvxwPzsfgP8Bbr
bpmfwxPQJnPCjYbq5jDk3ZY6+hFGK9perN4wCU+WNK/1nKNQnx1a6+qlR4MH
ONbnXTWehAsG2ywpsxRq6A2BjU9fFsM5lvKt7ncmYcyccr7lNIX6e1QhkXf2
E5yiqrm2ZE7CJlWXePEp5E7qRt68n+E3Ssah0aZJePXfoGzeOIW642XyXiW5
UnjpHLVcYWESPqJ+XNzxi0L1DNbgXaVTBv+un18eumEKmgppRIuMUajr+FjU
18t+gXWx5dRLOlPw9LQHZWiYQt34YXh3DFc5nJTIrDtmPQWv+jrwxQ6ife3m
zg2YLIfHjdbQDLymINuh6gzYT6F2O7880pJWAQUH05rkIqbg4Tdr7b/1ovnU
MPrKd74SVlr6F7FmTcFj3sXydd0U6ksQs3bHxirYdNPiQVvlFOwtFWpW7KJQ
RdN+zosUVkH5EnWZ2o4puEdt/MLtDgr1yN6HT8OPVsM/j1W2FE5OwV+XFVvK
2yhUtrbN4ek/q2HkB95XLygMmNjVOW/VSqH+Or4pzM7+K+zmstQJE2LAW5/H
5KZaKNRTEutmvfq/QpuLotXesgz4TzTc9HYzhTrHQXNesK6BBY5Lf87uZkCB
8GEWw+8Uaq7DjbNvy2pgyL6/InK6DFhwppIm1kShfhapyY9X+Aad7qae6DBk
QM6qkqCeBgq1x8tr1/fAb/BX+nZ2/1MM+Dr/h0tvPYX6ikNQsaLnG6zWuc2Z
Z8eAUR4Wpd10ClW4VGLZFbFaaHHtKL3NiQH91rF5tddRqOYX5D4H69ZCuQoN
iWl3BmzT9lu+Enn4nbZ3Iza18MU2sErImwGdjrbSt9dSqHJlD5sO36uFt/st
hbc8ZEAhSdNx828UqkTAIRFaYi08tExLUy2YAYfZY7+k1FCoj/I/8Pd8QvHL
lmXmRDAgddlbr79fKVStgfkA7o5aeD4lN1M+mgHPnd4kfgB5obnHA/AX/Q/e
evAo5DUD5ohZB+VUU6j+xYG/Tfnq4NmNayeLUxmw8k6kwQbkZww7W5xl6qCr
ZPGJoUy07q2kg4FVFGozR5J2sEYdtLooAdhzUZ0pgadEkMeJrhkJ+K8OvgKH
W+Q/MKDtrduTryop1MsRgnKBp+vglGF66f4iBiwVt+SSQ/77xMOpYOc66M52
J8biEwN+Cxc5/7mCQg1WFDXR8KqDP4Pe1aWWMuDnx6uuWCPfNKFM6X9SB9UH
m65NlzMgvW+P/GI5hao/4rvy6Ys6yMfGo61ezYCqBewyb5Bbzg6/vJtcB5/7
Hj7QWYP6aDkxfBL5X4V/711y6mDJF5G3XnUMeKyTcZ0TufDGcOMLxXXQV4z9
wNoGBtQq71/48oVCPZotEypXVQc7am7c0WxiwG6e86d9kdu53G/ob6iDwQFV
vWbNDLh92Y0oHeSjLjZ8CR11UODq8b1OPxhwE4ezGDfy88dDRMIH6uD5kN0s
G9oYUIZru1djGYUqPzBddv8X+q+3aLxT386AK1bnf32JnJ81RfTmnzpIE6xN
vtOJ5nNlzLoryFe+/0f9O18HVW33PuvoYkDx7Au2+5AL91xqcGGlQ/b/uCvV
ehhwG2VNhAjyvJIr9ZMr6fDlOWe54F4GPM8VuDRVSqGe+HfSYQ8fHZqVttxL
7WPAkvH/Tn5D7lKx2eDBajp8oJfy6FM/AzbLHk5LQX7qhO+VJlE6/DA0Lts8
wIBV/mffPkIuaNjaIL+WDp+uZs/IH2TA756GGY7I4wOKbW+up8Oyr6oKz4cY
cHWuwGsj5DYHlzbWydLh2NHRx27DDHjVol1YFXn46bR15pvpMGvb2OatI+g7
2tDtI4Wcyv1Ps3cLHRppZsz2Ip/vkPhJQb508YurgzIdFq7rGgsfZcAti661
k58p1Ji76UeNdtKhg2SSyeYxBjzt8CqzA/n1+ZL9O1XoMM3WUqwQubFg2ONK
5O47JwxE1Okw2HOT2n8/GXAp2nv1B+RnvnyzcdGkwyfex06VIC93PByRjNxT
cek+fQ8d7hJZyab2iwFTnf6IRyBPknAu3KpNh+Y1+zanI/9BS33xEHlOg1HZ
Wl065M1qC+P5zYADu6YkbyF/3zTfzLOPDoO69OIdkBtXVEc5IVff4MCY30+H
8lLz/1UhVwjnDLBFnn0mc02QHh2mUpKviYyj+blg4mWOvKGgTFPuEB3OZXIZ
2yIv2pPoZIj8hneyfaE+HXoGpfS8Rb61QuvMfuRz8n18HP/R4U2t0iPjyJ8o
bTPRwvvt+Ztvchjdz6Zd/ZUmGHDK4ZbuTuSpYoPnXhmifiWK+Dggvxn65bsi
8kstB+bSjehwW3XYmlfIx9/GXpRBPqyiElB0hA61f6R71CHXKeZbksR1/pMl
W2NMh+/Zzd+xTjLgewGVEWHkhuGLoWkmdBhmQc1SRP44cHWjAHLVlnnKw6N0
mLGs7Ikp8h1aSZALedqRNDd7Uzo8dcJS7xZywagXJRTk61ulc6SO0WFffMb9
V8iVnay/LEO+TTd3ohE5T8extzTkIH+qch7dx7wTLm59ZEaHVvEbi7qR61FG
380ipzfme687Toctf7s/ziMP4yt+yUDeu7O8ORc5i0NfsvAUAy42uPiPI+/f
HqZkcIIOH1fq3tmOXOT2D6WfyBMYosFlyOs9C5z0kI/VbmocRu6aKTlLNafD
r6kcRyyRn6208hhAXswVY1GAnPex27pryOXiNhX2Ilc6titb6iQd7vjc8ccX
+fD17vku5JfH1q70QR5bE0kLRx6l91CrA3uoxekh5P/cNt1KRi7j+H2+FbnM
v7tx6qfo0NVDlSUP+VMP0cIW5Lb7uwcfIZ/uM3YrQ/7D6YjHd+SqJjcUO5F7
HuMbbkDusNkwthF5oCtL3HoLOjw7fjqvCzkQ219Rj9wiNF3UDvkx+NVrDLkh
dfd4HfLpZ3cDk5GLQA6dWeR0pZ0Otcg33fPr70K+Isq9axmDAa0fbRmqQS5b
n6AuYon2GxvjxoX87/H1Nl+Rv3ZuDzBE/vkalWcNcsaVWplq5McuuEx5Ijd1
/NMrgdzC3WOwEvmjE2vNUpBPCUXmbkS+4/KG5Ark+3Y3f/iO/NCpJR9F5A5/
p+PKkee+zZyZRx6WJje8HbnmlbKXX5Dz3gvZuf40HZa+2HpIDXlcS0hEGfLo
N97OB5C7C0wlAuRzs7olpciNp0yXbJFPmb3q2It8MHti7DNy+7qtj32QG13o
W3UIuT3nSyHsRnsFxOOQUwJf7zVEHpVTaFeC41/N2VKI3J6/19cEeY3Tj9xP
uG75ltRG5Oyp+0vNkC9qzFCwJ67iMfmFnEukcPkp5AF6L1yLkbP7Vw0st6LD
KxncnqeRu2XrDNCQL7d77C6M/AGcmDqDvNBz0BS7QqoxryJygwnzC3bIlw5e
7ITI/9ZPT2gi321XSLVHfirl13ns1fsiG/9D3neGIuSAnP7CebIIeeGSTr4l
8lZzxRFH5NBH6Sn2wy4mYQ7ITa5naTgjN1g/uhX7vqu2V92R+7y3fnQV5+ma
WPMROd/fG0b+yIeub2tzQW6aUnML+5XVc2+DkR9zOlp8HXlR2rQS9o0qnoKv
kG/YXZ/ghvzdTYnOQuSVVkvXUpDHWSfc90Be4PrkBXZd78nqbORP1h0Vuonc
8TDLKexexwY2fkQ+3Oodewt5NdsVMewHfvzwLEMu36Wk5IVcfPBlXwE+B958
2lSDvDo/7sod5JNZVenY1WZTGhqRTw7k5t5FfuT87A3sUvnBXu3Ij3DYzHkj
/7OuzAC7jLTs117kqRUtrL7IXaqDpbGPNeWJjiCPcGTjuYf82zlrxgf83bXr
243j+j/vWuOH3NBTqBa7wtsbQdPI+QTW/cb+7F5VKvbgDwlFc8g/lciV+yNP
ueflh933L31kCXmZ5GT0feTv07PssdsV7NnMZk2Hhh6Vxg+Qd3/r08duGJNi
z4F84aIr20PkciNCSthVUoWSuZEHTE3lYB9rjFqD/UHYell+5Kr6wQceIef+
uH4hH7nIc6U4QeT51/lbsPu9SurD3pajLi2MfP+k/YXHyJUPPanF7rCQviCK
fPP0m27s+RNXC7EfNN3QKoF8eeb340+Qrw07kYT98sfwPCnkp/70f8NelN0U
jl18ikVwPfJXRyOUA5BrfzPxww53XLi0EbuHajD2xKFaV+zHb9d/kUVu7POJ
gV2BR9seO4M7JncTcq7kb3sDketse3sS+2SMY8Jm5HnUryHYx46sO4zdaI9m
iCLynIgPfdhv31nQwR5imLpZCTn79FHZp8glMltUsNfaihVvRV5/ovcc9pL2
HEXsrHfumykjdwW2ydjt9wVswJ76xjZhO/LG/s2dxNPOi2FPa9ee2oFc7vjg
6iAcZ5WOAHY2gbXau5Cf2PL8EPZP2R9XYle1O22yG7mOZoYr9iNH1ZZjf/Mx
2lYF+ZPdH2OxX2a8m8tDfla457oq8gtVJTXYa4T8GdhFipROqOG+FA1NYu9R
PfkLu7Gdh7o6csoeDuFgPIfmSkPY+fnLxTWQH+BZr4F9PFa8l8R509GA/flk
6XHsrKMcHdhl9acfayL//drWFXvv9j/N2NVGuA5oIb88xxKCPVOrqgE7GBLr
xB59xCgN+0m96Frs0wPy1/cgV7kc9Rl7n7FLNfaTA6p8ALmtUn8bdqsijgrs
l0RkH2GfZm8ax14qH1WK/c8hwZVU5MDuM1sIcsHQrZ9I/Jss97D/UcwUwX7R
5jTETh+JG8OeuopbHnv2joBC7EtmB0y0kQfx2alhH1sO87F7lo7kY2/iKTqI
vUD/8nvs7CN7eHWQ+4ttNsN+O0QqB3s5b/AZ7LwZITbY1dq/ZeWROR/MxZ7y
YcEZe9Db4UzsOdHb5rGrqCy7ib3PlzUD+zced21d5PpBrP7Yt5pLvsHO41Fy
DzsbZAvG7tD3OBX7pPlbiP3pA94o7PGOi8nYx9VfzWI/fV04Afv3Wcck7BTx
x8p7kd/0kErHvocmm4h9qt/ECvv56w9ysMf6dSRgn8gUC8De/4VRiH25YVg8
qZtH90fsxraWn7H/euEfh928z6gP+0ZBl0rszWPusdhpBjTOfcg5tB7WYqdp
XIrBrpyzVRm7ZHt0E/YjMQHR2N2TPhth1zka3Yq9m5L1Cntl5Akn7F22r7qw
X3ZoeIl9fcCvAOyXeF72Y/96dC3xmMXuZOwXz+UNY9+sdf4FdhnHxhLsulfp
P7Hfk8mKwp7eXt6O3XPL2AT2tz4SxB/2iE9hT75zaBp7W++9SOwOg44c+5Fn
RCTNYqfoTjzHbjRWLIm9/wplHnvXYVfiCrQDW7HvdK1cxJ5v/i8CO0fIVyp2
Lf0ny0LxnNh5ER86Z2KMffT3ETbs5yzEiZuG5lth9z8YTsGucTT3GfaST1KX
sfvdbuPAzqd/hPiOcd+b2I0C13Fht9m7GI79DffJ+9gjxxe5sedppRLfJL8t
FLv7rjZe7Nwqx4nH71sRgz3XIp8f+495QeJT14tSsA+c0V6FPfHTtzDsuinX
32GfM64QxH7N/yHxkLZtRdhZtxxZg93wugnxF3ZKZdh91wYLYd9sJ0789bhC
DfaypQZh7CtMe0OxZ7rLN2EXrBUSxT6jnUOcfvVDG3YFVSkx7MNKfsQZDvq9
2GnBcuIkf/ETxIXs2oax7+/ZKoG9a88O4gpV2r+xz3KtlMQ+YM1DnLotkYGd
U7GH+JjPYAizL9xz2Ll1CtZiNz1XTry42mMRu3n0JSnsRQeTiW9hG11+APme
GSlp7HKKD4g/1zBnx35uP50473Mn4hdllzixc1XYrMM+zW5GXFMgnhf7/L4Z
4m0uWsR55vVWYZ8pvL8eu86VTcRTkg6swV6xZvkG7EmOgsQPmO4Xwa5+wZ04
78XFYOx9y/aJYxf8MEmcW/Yn8Z0CBZLYhcNMN2Ln7G4l7iOtLI39g2MecY6o
SuINWxPXY2/UFZfBXnGhkHjSXNpG7P1uDsQfqKUHM8/hLFnsZm8+EtfniCZu
FJi3CbtQB68s9ouWIcQ9RM5sxr439Ajxh+/8ib+O5lLEfuVQCPFUzpvE6zbl
bMF+f6GJeM21q8Q1O1dtxR5bzSOHfaLDnnhiqNM27IrP9xJffdCK+CqDGmXs
EnYexB3OH2fmn/1zO/aLl5KIf/YzIj4gxrMT+8OrjcQlEvWY+7qruAv75RvL
N2Ev3qJDnDNHZDf2BVc54nbvNIh/HmRTwR53zYA4l8Yu4rfEJoibOTsTnxna
Svw/1WxV7CZNAcR7wzYTlzjmooY9Uj2d+Le9MsRHr6qoY5d7Wc1ct1+a+NH5
JuJS4f3EF3wliH/0cdXAHhCwSDxEVoS4LI+QJnYHP2F57BFPVhN/IR9BXIxb
kfjLP/zEV++X0MJ+KpBKPM6Sh/jDM6+Ib1ttSvzxBU7ilzZw7cHON25L/Lor
O3HDPlfiz6tciVvfZSOunNBDvPa1H/GF1cuJt+zQANhZ74Qy80xcCsJ+51Mw
8WnzOOK71BeIyx8ZI/5651viPhr/iEuJ7qJivxlWSLxe8y/xNd03iW+Y/UJ8
/Z4Z4lzJZcTDTtQTv/h8mvh3t+Xa2Duy24i/+zNFPO7QHuLLeAeY+RtPEr8s
7k587txv4lxz48Rt9qYStxSeIS4a85v4iUttxJPKFonL6f0ifjiMRwd7nQtl
MzkfFH8y4yzsIn6tjJu4vMAYcXcbS+KswoLEU6ZHiAdW3SPudk6UeCo30xVY
koiPhq8lnrZhmHjZzgri+uUbiL9RHyJubT9CPHJ2E/GtHoPEC7JX6GLX0txC
/G3BALPOi9LE628rE98x38+sj54mcYuSXcTplkw/lGtM3H6vGnHn4j7iMhvt
iTuUahLn38h0lqDbxG32U4m/j+0lzrssiPhDOV3iluuYLuEUT/wNx37iK6J7
iG/uzCVePqzHjLOL6S9XlBF/dECfuH1VN/FVio3EDRL+Iy5uzfR7xn3E2VmN
iBeuZPrasnHijYwjxC2yuojnqi0QjxkwIb5ozvTDb1buxX6+2ZRZZ0Gmiw8L
EvdyNiNuVdVJfGjjWuIhnCeIP/Vmeo7VJuIJcebEH+sxvbViG/GGqZPE7/Mw
fdkONeJsey2I+9I7iMtFaRPfEmJJnC2W6WW+esRdkk4T93Zmuu1lQ+J5hVbE
l2szne3EMeLztdbEZUSZ7sh+ijjl3RniehPtxJtzrIkLhJ8lfrGC6To254iL
utsQT0xiehSfA/GsnbbEe/2Y/ueDE/EDv5kudY7pRnYuxNuS7YgrGzCdpulG
fIfuOeK6ykzfJniT+MM2ppsKMT162It4t8t55pyzMH2VgA/xoSmmC4y0EfdR
9SP+y9me+O96pv85/YD4+G+mFxUzPWzmEbPvZheYfcxg+u6AAGZ9INNPvWB6
k2wQ8XjZi8y5fcJ0Hb0Q4jQPprveZnq6fRizDrVM93ZiutjDZ8RnZRyIq9sw
3Ur/OfGRi0yfMGP6a64oZpy3TE/SZ/pY1QviNTNMD9BmurnmK+KHlC8x81Fh
enlaNPGyC0y32PJ/+5WMJa4dz3R+GaazGcQx61PP9BIJptPd45n7Xe7IjL+a
6dHJCcQXlJkez8P027GvidcdZzqdwnTLyETir28znYWF6VohScSvv2a67Vwr
M3+rZOJnypheyWC6yZYU4gcHmL71N9M7/jJ9J+Uy8eARpv+LSSV+SZrpM/1M
FzmUxsxHneknu5m+a5LpXUeZ/rSd6Vaeb4g7XmD6lxamP6SkE1+6zfSFRqbn
BjL9cSjT/wcJLRCz
        "]}, {Automatic}],
      Editable->False,
      SelectWithContents->True,
      Selectable->False]}], ",", 
    RowBox[{"y3", "\[Rule]", 
     InterpretationBox[
      RowBox[{
       TagBox["InterpolatingFunction",
        "SummaryHead"], "[", 
       DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
        "Ready"}, 
        TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
                PaneBox[
                 ButtonBox[
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEBitmaps", "SquarePlusIconMedium"]], 
                  ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                  None, Evaluator -> Automatic, Method -> "Preemptive"], 
                 Alignment -> {Center, Center}, ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAz9UQ83NFvT4ACcjRc0WtvooOSRlb
2fo/smAMtn1H6b+/cME+bfoLQEhZ/HTz0fi/o5j0Y6PIFEAlAjLwYIUBwIxr
J0jxcRtA4VEfyMQVBsCuHxZa5FUhQFJN1zJYnArAWT/bhRa1JECce8a+znwO
wHdfiXWNXChAHaMCToUtEcDo+Ab19PIrQBNAC4Hx7BLAHEhH6qJLL0CvXbro
9W4UwOFLuNFKdjFAwrQZeyzyFcCXTi5p5yczQE7MbkVVQBfA9g2MSPzQNEBN
Wg2c+G8YwI5N3okznjZAVwGSQSqgGcAH6BEGjkw4QHvw1fCKpRrAuwI65Aof
OkAyDQChkakbwBnaSQoA6TtAWvIQ60qSHMBYDDtrGJQ9QNANIdf8Vx3A0L4g
LlNjP0DQM5VBCRoewBXm85XYiUBAvijKL5y8HsDfrNHFGHRBQGGEV9YdWR/A
/VGjGRVaQkBuu/q/Xd8fwIyk5QqjMENA19gbDNElIMA4NyItQhlEQF+1i1dq
VyDAVXfP7HLyRECOsZ+sTn0gwMaVcNBfx0VA8HNdKaiaIMBU9AvlXa5GQFEA
qcTXsSDAUwAYl+2FR0DsTsAYaL8gwG9MHnqOb0hAm+93jlbFIMDgdhiB61RJ
QCFStb5LwiDAwU6DJdoqSkAmLAHnhrcgwL9m6PrZEktAl7Q4KiijIMAuLL5t
a+tLQB9qNvbrhyDA8s+HBLm/TECXHbRccWUgwNKzS8wXpk1AfMPtrDQ3IMAj
RYAxCH1OQFsonu6nAyDAkRavxwlmT0Bv84Tq2oQfwLhKp33OH1BA6RSt7Rj5
HsBS+XApdopQQCC2T+XVXh7A+8e3bSb+UEBAlsxjpqMdwFzttoAfalFApqG+
W7PhHMDLMjMsId9RQEd5MnvA+RvAZWep6QBSUkDdkEvFEP8awLfy13UpvVJA
21kwo7v/GcAYnoOaWjFTQJDWM5Az0hjAMaDnjdSdU0BBeFGwLKAXwHSRRZMs
CFRAFe8mh7FbFsDGoiAxjXtUQCApjk5C3hTA0Aq0nTbnVEBVkWqcgFwTwOmS
xKLoW1VAHl8UwcOWEcAsCs+5eM5VQBrc45TCYg/AJ9iRn1E5VkCXIfG5N4kL
wDHG0R0zrVZAMvMdRFX4BsDzCspqXRlXQMOUv2/SRwLAxG8/UJCOV0AaIZSv
qEb5v7/DrkehAVhAnwZPTlKN6b9ybtYN+2xYQMJKvcyQYqE/NDl7bF3hWEAw
Fbhkym7xP65a2JkITllAknWIQF7PAUCgUAn7AbxZQDj4G9a4wwZA7O29ow==

                    "]]}, 
                    Annotation[#, 
                    "Charting`Private`Tag$36894#1"]& ]}}, {}, {}}, {
                 DisplayFunction -> Identity, Ticks -> {Automatic, Automatic},
                   AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                  GridLines -> {None, None}, DisplayFunction -> Identity, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                  All, DisplayFunction -> Identity, AspectRatio -> 1, 
                  Axes -> {False, False}, AxesLabel -> {None, None}, 
                  AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                  Method -> {
                   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                  PlotRange -> {{0., 102.93762263160029`}, {-8.38542599882185,
                    2.845567391136708}}, PlotRangeClipping -> True, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                GridBox[{{
                   RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "102.93762263160029`"}], "}"}], "}"}],
                     "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {
                  "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                 BaseStyle -> {
                  ShowStringCharacters -> False, NumberMarks -> False, 
                   PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
              GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              BaselinePosition -> {1, 1}], True -> GridBox[{{
                PaneBox[
                 ButtonBox[
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "FEBitmaps", "SquareMinusIconMedium"]], 
                  ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                  None, Evaluator -> Automatic, Method -> "Preemptive"], 
                 Alignment -> {Center, Center}, ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                GraphicsBox[{{{{}, {}, 
                    TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAz9UQ83NFvT4ACcjRc0WtvooOSRlb
2fo/smAMtn1H6b+/cME+bfoLQEhZ/HTz0fi/o5j0Y6PIFEAlAjLwYIUBwIxr
J0jxcRtA4VEfyMQVBsCuHxZa5FUhQFJN1zJYnArAWT/bhRa1JECce8a+znwO
wHdfiXWNXChAHaMCToUtEcDo+Ab19PIrQBNAC4Hx7BLAHEhH6qJLL0CvXbro
9W4UwOFLuNFKdjFAwrQZeyzyFcCXTi5p5yczQE7MbkVVQBfA9g2MSPzQNEBN
Wg2c+G8YwI5N3okznjZAVwGSQSqgGcAH6BEGjkw4QHvw1fCKpRrAuwI65Aof
OkAyDQChkakbwBnaSQoA6TtAWvIQ60qSHMBYDDtrGJQ9QNANIdf8Vx3A0L4g
LlNjP0DQM5VBCRoewBXm85XYiUBAvijKL5y8HsDfrNHFGHRBQGGEV9YdWR/A
/VGjGRVaQkBuu/q/Xd8fwIyk5QqjMENA19gbDNElIMA4NyItQhlEQF+1i1dq
VyDAVXfP7HLyRECOsZ+sTn0gwMaVcNBfx0VA8HNdKaiaIMBU9AvlXa5GQFEA
qcTXsSDAUwAYl+2FR0DsTsAYaL8gwG9MHnqOb0hAm+93jlbFIMDgdhiB61RJ
QCFStb5LwiDAwU6DJdoqSkAmLAHnhrcgwL9m6PrZEktAl7Q4KiijIMAuLL5t
a+tLQB9qNvbrhyDA8s+HBLm/TECXHbRccWUgwNKzS8wXpk1AfMPtrDQ3IMAj
RYAxCH1OQFsonu6nAyDAkRavxwlmT0Bv84Tq2oQfwLhKp33OH1BA6RSt7Rj5
HsBS+XApdopQQCC2T+XVXh7A+8e3bSb+UEBAlsxjpqMdwFzttoAfalFApqG+
W7PhHMDLMjMsId9RQEd5MnvA+RvAZWep6QBSUkDdkEvFEP8awLfy13UpvVJA
21kwo7v/GcAYnoOaWjFTQJDWM5Az0hjAMaDnjdSdU0BBeFGwLKAXwHSRRZMs
CFRAFe8mh7FbFsDGoiAxjXtUQCApjk5C3hTA0Aq0nTbnVEBVkWqcgFwTwOmS
xKLoW1VAHl8UwcOWEcAsCs+5eM5VQBrc45TCYg/AJ9iRn1E5VkCXIfG5N4kL
wDHG0R0zrVZAMvMdRFX4BsDzCspqXRlXQMOUv2/SRwLAxG8/UJCOV0AaIZSv
qEb5v7/DrkehAVhAnwZPTlKN6b9ybtYN+2xYQMJKvcyQYqE/NDl7bF3hWEAw
Fbhkym7xP65a2JkITllAknWIQF7PAUCgUAn7AbxZQDj4G9a4wwZA7O29ow==

                    "]]}, 
                    Annotation[#, 
                    "Charting`Private`Tag$36894#1"]& ]}}, {}, {}}, {
                 DisplayFunction -> Identity, Ticks -> {Automatic, Automatic},
                   AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
                  GridLines -> {None, None}, DisplayFunction -> Identity, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                  All, DisplayFunction -> Identity, AspectRatio -> 1, 
                  Axes -> {False, False}, AxesLabel -> {None, None}, 
                  AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                  Frame -> {{True, True}, {True, True}}, 
                  FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                  Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                  FrameTicks -> {{None, None}, {None, None}}, 
                  GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                  Method -> {
                   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                    AbsolutePointSize[6], "ScalingFunctions" -> None, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                  PlotRange -> {{0., 102.93762263160029`}, {-8.38542599882185,
                    2.845567391136708}}, PlotRangeClipping -> True, 
                  PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
                GridBox[{{
                   RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "102.93762263160029`"}], "}"}], "}"}],
                     "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["3", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                   RowBox[{
                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["False", "SummaryItem"]}]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {
                  "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                 BaseStyle -> {
                  ShowStringCharacters -> False, NumberMarks -> False, 
                   PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
              GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              BaselinePosition -> {1, 1}]}, 
           Dynamic[Typeset`open$$], ImageSize -> Automatic]},
         "SummaryPanel",
         DisplayFunction->(
          ButtonBox[#, Active -> False, Alignment -> Left, 
           Appearance -> {
            "Default" -> 
             FrontEnd`FileName[{"Typeset", "SummaryBox"}, "Panel.9.png"]}, 
           FrameMargins -> 7, BaseStyle -> {}, 
           DefaultBaseStyle -> {"Panel", Background -> None}, 
           BaselinePosition -> Baseline]& )],
        DynamicModuleValues:>{}], "]"}],
      InterpolatingFunction[{{0., 102.93762263160029`}}, {
       5, 7, 2, {504}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
        False}, CompressedData["
1:eJwt0gk0VlsbB3AkZEgTJXMX0SAV9w3lfcqQDJl5T4Mh5YbSXF4ZSsVFcg1X
hIyROTLkVkqUvnAvkkoJoSJTkbHy7aGz1tm/9ayz197/Z++juO+I9QE+Hh4e
XvRO4uHXI9XpJNV2k82mWrC9Fz92bKyMZ09GO42vgWz2couCd96NxezAw9kH
yu9VsysDlbLrBOrZP+ssxo+oNrMT7cWW+Zi3snW6nmlfPN7G1p1J0zNz7GK3
XXJ2tr/Qy/ZeIBfofLOPLZnwJt2jYZDdFlW/T2dqhL1HN4st7D3G7ug+L9M2
PsF2ubxnKvvUDLtHk9XKHfvJvj305+sMbV4Y2zZeKzrFB98vWy0L8JwL/C/z
Dn5pFwRRRaEKV0thWOzpOq/1kShIl1YyxlriEDkratf+fAH8naHjJym2CB6d
Nht8+WkxDBs77o2vkQAZ6aMNu1KWwo7B81tkfKXg9IPo/HYHaUiPvCGbvFEW
Gl3Lw53F5UHPYjYvvUoBYgZWLL46owj9IUbcUK3fYOtKjw6/I0pwtSbc8Fi2
Mgy6FOXu71YB/dmWhRxZVRiqsWz5UqkG8aH1sWHOq8HA0phR5lsLQxI10g/S
1aFhUP5I3goNSGvca8kd1QDv2wnrjWrWg+Xf4QXNrzeA6pmA1U7DG4GXOXbz
M78WvNZxVfZe/jsUy9il8WuwIPSnkXyk4SZw7dyUKLtbGw50x2lz6nXgjw+T
rVFbNoN7H+dkQ8EW8By4s1BIgQ1lZy47pBoDsLibM/V4t8Idn4GxNxVboWVe
85kFhdtgOK582iBDH4RVk/y48QagXB7IU3DFEMDo4IX3F4xg9wtzgaXc7XBm
/8YQUy9jKO77nGCatwMGvTIKTPtNQG1sT5Wpqhns50q0mLqZQ/LPhg+mGTuh
7ULQlOl7Cwi7KC+g8pclqNWeFVdZZwXuKelfFIqsIJtb91x6ozX0WY+WSpZa
QwX3fli7vA2EpAS7ZITaAFNrxfL8ZgORFqttr5vZwtOX/Mea0m2Bx/ldOP+M
LXTG9o+qb7ODqoZxhgmxg1T+OQ8vNNpBdHSPYaKwPQSteFJXYmAP3kVZVg3+
9tBlm7vXuMAeTCcL3Kvb7aEkofiUnpgDiCl8t16u6QAHMgw1xnc5QKVqhFjz
eQdwvOM8kZbqALPbN3SdqHKA5Jdz6gy6HMDnkcTmLTMOYJe/Ml9LggMacdpy
6us44FPlqbnegAOP+5NMNBkOiC9pdGZ5cWBJ9qu18wM4IKXXNd0TwQG55321
d1M48OB8u0RCAQecNZpcfe5xgLejpoh5xoG08Duzm15x4H1qpqFFNwdWlMWE
HRjiwL5ngU1npziQ+u7o0ih+Brq+Ou69Kc6AoqB5euVyBlykdftalBkQ+qTo
G6DOwK0SIfFVLAZY99IX2esxUFmtJxloyIBh3WupAjMG6ptPyrbZMGDTJq4o
sJuBtq4cpQ37GKgL61HgPcjAPS052cbDDOR3OEgln2AgOSRSwovLgF96uKiU
PwN77ofMqQlkQOflpWmvYAbiYyv4V4YxMGU3OL/jCgN7zzYaDkUyUJVy2/dH
DAMqT2Jvi8ah7yVevUHX0P7pRkt5kxiQKuDbuiCZAbc7lR7yqQzcfuQTo57O
QLe8/rK3GQws8hNJDMlkYGvbc3nWTQa8lol7hGUzcM3epKQjhwHjT0vmTecy
8I3bsXdJPgNpIjnF6gUM/Jhn83RpIQMcoe/tPLcYKBG4MdqHXFSavyCjiIFj
rmVrHYsZaFz4wGTZbQaqT4R8zEOWvbC5uLWEgWyWnGIrsmu3x0uzUpTzXFl4
NdIqg89Ap4wBYa8HpvHIapavzSTSj1d7t0M5A4MvjsSmIx1zMpuGkf/5t4tu
vsOA4PXjNlwk+77gtTLkmbeJnaNIrSPO2soVDIzyKkXZI4tiPvYHI1Na+ioK
kRFLBv58ifSzHXKYRbpoSQfK/4PuUdI4j41UmzjZ6oQ8FCnTzkUWrK7pjkZ+
eezZn4/UfRvOU40M+loo+QrZJNS8ZhDZ6pu1/SfyzYjvPvG7qM/91n4KSOVJ
DRd1pEeYuOFmZKHckKoJMmiD4wk7pKPRv/edkVq79IQOIbmaH1inkPfnX/nD
H8nTp3U1GCkpuHRRBHKt8uTlWKS+/mvB60jzCT2FDKRDbsamHKSLk7DVLeTO
t8d3lCJ1mTdb/0GqterrPEBaSPgaVyNP25bY1yKTogf21yFvPQ4t+RdZPaHK
34xsVau1eYG0zVcWeoVs1rh4rw1pWfL+aDvynWRZZgfSkxvytgs5+WbPoh7k
ufypzl7kvIDYwo/ISMuN/n1IJ9mYyX6kev/Y8QHkjzK7wUGkqfDQimFk/N4g
zgjywy25K19wH5aXwr4i3w5//nMU9xdhHTSGXDy3zu4b8l8ffeVxZMjI3TGs
Z9ON6xO47+II40mkRjT3KzY0LcdvCtlT9EZoGqlXJRqDLRReLjCDVLBd6Y2N
StLsx15vyN/+HZn7Q+UG9s7aFL4fyIt1bAuslXtHAlZOMOATNj3fauVPpKqt
khs2b3o8A7vK6OwrbFbkrMgsUqn9AhurdbjGHWv0gz8Gywk3rMSabRrqxEJ3
7Byee2jeFbYKdiS3YBs293+yTli3j5fPYk28uqKw675p5WAX+4ZWYdWDC1uw
xlEtH7GuSVPT2JjWQmFe5BNxt+XYCWOZVdiX13hZ2PKBD/rYq3r1ltjf5Pft
xhbOThzAbu4MP4rlnNbjYk+JDp/HRqYlh2IXfq+KJLVdTxypCwVSsNIb39/A
qpTfz8Wu140vwv7je7AMq1/JuottmBV4SGqx6WpsxfLBWuw61c464lG5/4h3
9jQTeRJeYPPeGbzCqt0fasNmJsS1Y92Sn3aQfdMnu7AfM1V7sLaJY73Yh5EP
P2LXBl/uwy6yEfiMHZc7N4Bt658axNZs0RjGFvzlNkLOpzvxC3asPuEr1rLs
2ig2Pzl+jJyLgOc37JbDm8exc1vEJrB3X1cQj3ccmCR5exdOYSVYyUTekDXT
2IG2CuL9sbUz2Cvz04hOqpLfsV2hp4iugy3EHgvNH9ju/EBil0gTscNd/id2
tt6JKK+RQmRHd1J9JGaxei4mVOMA4tMHOUQbVivxXQEvDx/+Dw8oE+fI7iBK
tBwi3l0TSnS5lEUUfFdDXD7zlrh22TciaInxYm/NVSQqtmoSIzONiXlDHGLt
7+7E9/5c4lBHEHEaYogCaanESyl5xDnJ5cTApEdEy8w6olxhC3GwvJ3or9RL
FI8cIKb8GCWeWDpNNFrPw4eVMhUg/rVThChkvYAYYCdB1D0pRRyPkiUWFSkS
Ty9RJuqcUSXOvl5NNE9TJyZ6rCf2b9Akmvr+Tsx9vIkoIq5LlBnZTFRv0iOy
i4EYt2Ub8ctTfaKJrSFxQ7wRzf1uO5H3tx3EueomxHnapkRRAzOin7w5cWia
6tS6k1geakGcz7Ykuo1Sk4KtiM+lrYnCt6iv1WyIWenU07K2xKjz1Pxe6tMd
dnTdRKrtEPUa2BNZF6kvaqknRBxofn3qVR+qWjG1pYN6ToxDXKNLLXWm6gVR
a3OpKc+o3D6qtRBD8ylSBXWpLrbUTe7U+f7UnigqfwZVqZRq8ITKaaF6vqf6
j1DFv1NTBHfRe1pMLZGhaqlQy9dRg1lUDpuqup0aY07lsaUe2kW97USd3k/d
6kGN86IOHacanqG2+lDd/KkT56m9F6nPg6lVodRV4dSoCOpMJPVbNHXkb+rn
q9SweOqaBGp9InXFdSo3mfpfCvVTKpUvnSqd8au+Qe37ZVMmNSKLan6TKpJN
zfqlfg6145dOudTOXzrnUZ/9cmM+NemX/weIA7I/
       "], {Developer`PackedArrayForm, CompressedData["
1:eJwl0wPXEAYYBeCvL9u2bdu2bdu2bdu2bdu2sVqtVqvV2p7O3nOe9wfce27i
Jh2rdAgSEBDw7ddzQQlBaMIRkShEJxZxSUBikpGSNKQnE1nJQW7yUZAiFKcU
ZalAZapRkzrUpxFNaUFr2tGRLnSnF30ZwGCGMZIxjGcSU5nBbOaxkCUsZxVr
2cBmtrGTPeznEEc5wWnOcZErXOcWd3nAY57xkje84wOf+PIrT37wL4GyDU4o
whKByEQjJnGITyKSkoLUpCMjWchOLvJSgMIUoyRlKE8lqlKD2tSjIU1oTiva
8qvwznSjJ33ozyCGMoLRjGMiU5jOLOaygMUsYyVrWM8mtrKD3ezjIEc4zinO
coHLXOMmd7jPI57ygte85T0f+cxXvvOTIIEBAcEISRjCE4moxCA28UhIEpKT
irRkIDPZyEke8lOIopSgNOWoSBWqU4u6NKAxzWhJG9rTia70oDf9GMgQhjOK
sUxgMtOYyRzms4ilrGA169jIFrazi70c4DDHOMkZznOJq9zgNvd4yBOe84rf
+J0/+JO/+Jt/Av8ff1BCEJpwRCQK0YlFXBKQmGSkJA3pyURWcpCbfBSkCMUp
RVkqUJlq1KQO9WlEU1rQmnZ0pAvd6UVfBjCYYYxkDOOZxFRmMJt5LGQJy1nF
WjawmW3sZA/7OcRRTnCac1zkCte5xV0e8JhnvOQN7/jAJ77wjR/8S2Aw+ycU
YYlAZKIRkzjEJxFJSUFq0pGRLGQnF3kpQGGKUZIylKcSValBberRkCY0pxVt
6UBnutGTPvRnEEMZwWjGMZEpTGcWc1nAYpaxkjWsZxNb2cFu9nGQIxznFGe5
wGWucZM73OcRT3nBa97yno985ivf+UmQ4PZPSMIQnkhEJQaxiUdCkpCcVKQl
A5nJRk7ykJ9CFKUEpSlHRapQnVrUpQGNaUZL2tCeTnSlB73px0CGMJxRjGUC
k5nGTOYwn0UsZQWrWcdGtrCdXezlAIc5xknOcJ5LXOUGt7nHQ57wnFf8BxjG
/90=
        "], CompressedData["
1:eJxd13k8lc/3AHBFl+xSdtGCREqbvbloUXwiklJEoZRERVkqhWgla6KyZg0R
EZkrkS1xLZF9XyvLFcnynZn7++v3/Pl+Pa8zZ845z7zmWXfmsrHtMhYWlqEV
LP/v6YLbd+AnDvQqdPx8krQVsl4NXvFuqRMGJs5p9m2PA2F974/bJwG49exp
7vPIs6wT9ocijy54MvY87z68sivwb/B4J2xe7BST2RAHhtesVgU7I+DotF1z
VXcnLPzP5NE7wTgwu1TyWaskFvLH/Uziq++Ekdnv9+9liwNRxV9uvH2VDY9P
G7fviu2E9gU2MqW1sWDg+69Rp+oCaFntE3nGoxM+k1KK90+MBU5PS0+EzRRD
oerejL6jnfDsJa3tF2/Fgqb9Ei4LrGVQ+NP12gKlTjjzfNVyV9NYEGSjXHaD
qxLy6IvFDHJ0wvkhRbO3irGg+3Fu5+iKOnjwUWuIRlEHXMne5dLUGgMSTL1W
+s43wD7Fojtt1zogBQz84X4UA5rSzbKyhpuhrm94dKliB1QzP9PkqRUD4tbN
rHj1tQ06mvO/mOhvh8/6Mw/tG48GVSvuFagd7YKfritmmEe3Q81tzuq34qPB
w9uPbE4/6IWjtSL8eVva4Un9MEvpTdGg/XuRs9K7AajIkrvtYlEbTIk5ucHb
6hUoDlxvt5w+DKFiksFR4zYoH8owm3J7CaxHgg7t6BuDx2K61EyGW+H4LoX8
kKgXINs5NH7N6G8Y9eQFi553K5T75Pb9UHkUoLI91L55dQLGGz7YLSjdCst6
b3/rmY8E3P8+LpnemYK0CZFvORE/4LW0Zsc7v56DKpWHv0R9p6HAvlzWUyI/
YKS8XqzyeARomhvV3XR7BsZNJVvkR7bAjAlrAa5lESAtr8Tvx+W/8KV374Tv
hhaooiC5Qkr6GTguL/zbx+wflHB1PXsroxmGpioOehmEAwWjn9muuxdgxeGJ
irOgGQqnXonU9w0D2eOiF+e4l6C7PYvvP/p3SEnvS46vCAU8B9s8+ftYaMu8
P9wb3fkdGurKf/tFCwF+0e6H3qgup/3dMLZV5WUTzMqoyXGuCQbX/E+eLfRh
pY2nm0ro8DbBb3zCTT9+BwGv8MHJF+VstMPvV+/w8mmEA5x3E0Q3BIG9MZqX
U9goNJbRD9+usjTCA+GRQuZ2T8GRAv+zO9TYaWvuHRBOu9MAX7/Kvrb4PhDc
0Wlc72PHQbuUzu9Rwt4A2xqn9CKEAsHS6kDViOGVNJFbmc/zL9VDuZT7CzGv
n4AHjQd6ZK25aL6ed1fSf9DhW5WaX3Tdx+DjgScpWV+5aa1+s8rnD9Ohfz2r
mxvLIyC4rEYndysv7TrnRpbRL3XQadu3vqHmB6BVv7M/2o+PtnSyfc2P/XWw
OZMy/LfiPihfKbl37AI/7a7a+SsllbWwiaVXa7rWH1w4/MfRgkeAtvbuTzdt
k1o4I36+686oHxCY/at2q0OANln9OT7I5Ru8+4T+Rr7xHvgoeWIlJWkVzflR
YMVa4xoo/PCgT1mLL2DZfTVY74Igrf4KPahD/Sv0nuhXHpv2Adfc03Ofyqym
+WW47cpSqobqyV0s+bI+YFiZdln2x2paqvx2vyjFKsjv/VWv0N4bBEX+St7n
v4a2PVDi88cdlZBzTEetp/AuCJ6/OL5pmxDtZ6Ml1VC3Au4O3JF3du1dwCJq
mE2hCNPkN7/3ieArhxPal43MTt8B99f0vn9TJ0zTFS62lxsqg9Xb43wns73A
HSeulrvBIrShn1q3PlSVwta6zbmZol5AUnukpUtflJYkwbtPM/8z1Ls6x/Vb
4jYIzY+NE/0nSuMams17n1ECfeNqxtjW3QKcV8YMr8eI0QLZ7bmOpn+C66WW
DyRo3gRG74M4tYA47atB8XGjd8WwcXTO/8AlT6Cu0HZ7N5sE7RNnBMuSMw1q
HP3MfcDVA2zbvfBw4IMEbb/fa3u9a0WwPbNj8ESUO1DXaEgtOitJo6TKdXEK
F0KWzYc+zbW6geK/3ZwbliRp4TtU9MQq8+FZFk0Z7e1uQOiTLofD47U003c2
7/0fvofu01aWJVE3gJVd0Y1BXilanJWbdOSJHLjzqaLqbdEbQFVpMavFW4rG
6dPWTNueDT9PlnR8eX0dXNWn+YpQpGmfdXxTv9pmwlbhQcF4mesgbek3TwKQ
ps25rnyW9V8qHD7oJRNV6Ap2pFm/++QoTeNvM9DUHUiAgzNVFrH2ruC7g8mz
8GBpmpG0gplKYDSc0CgrklNwBXveLlyipkvTVoF477DHYTDwo8zdlSyuwED5
KFtdkTRNO6TAunGNPzSZdNjkM+gCCo9yvzpaKk3rFm/k45g7DpUf3xdQ6HYB
2fy/huno/TdRJUtDQv4g9n2NYeeUC/isrG1zOlGa1uUlOZtfgM6d9JaMIBlX
cDJ0Mar+FsrTcTOfY2UcyItnka687gpGNhr/+71Xmlb/RsOyvzEFtGtUaIj+
dAWegxk3syelaLdKXv5pXfEW/EsJ22h6/zoI+i+fc5uKFC3jXnPs2cJ3YOh8
T1zfkRugSOrqNqlja2l00eaRmdA84KfqKKV+2A14OFjrzv0nSVugcUmejSwE
uV30zY/83UGy1czJbDMJmo2o2l0HCg3sVdM6srvYA0RFZrmV7xWncQolVXc2
FIPw4890ZnffBOblvOzvBcVoH50OuR77WALSvW/tiZi5BXpO/nipt0yUdu8S
t0mJbSl4sLmnwu+YF1B6av5OpFmYRmsRCv8p+wWop75Me2F2B+ir1l+mhQnR
rNpv2+qtqACvktiC1vnfBdrTsT+0b66hmQ41Cp5PqARTtel3LdK8Ad9DnwrP
I6tpwadNOs9bVYOT580chZf5gsI1LUI7VwnSbua58/ep14CaB08iup/eA+uH
U1XkFwVo/FLHG+xavgGjjLARIX5/4GTG0qjeyk/z43+2YW9lLdiZmro8vOo+
sPnxhi3NiI920Lm/+W5eHSjNP7a/lf4Q5GrtGtqhw0PrzK3+bnufDoLG9z8S
oz0G9TqNddvFuWj/6Ro6HrWvBzzeJ1i3zAUAz3hQW9fCQbN8oVWdb94ApB9X
yFgefAoWn/dROsYotFEniQvcWxuB8hsboX/eQcDwo/tWn1E22rTRrYQVgk3A
6Vj8wvTPYPCK3bRnZ8NyGlhtWrxq5XdQs/u/zjdPQ8H3xmTfO9zLaOPKcpqM
7u/glkBT5zHJcCCaqud/+9wiHC1vSuqrbAaVdjtVcrqfgfz4O190ns5BZzfH
DdSyFlDa1rhMZuQ5mFJwFnphOAPnLxbMFcT9AOJPEo+/ro0Cx6S42FwnpqCz
Sv3uw09bQc+1+aiTMy9BIDiln3ZtHB6y6d8o9bQN2GWfk7n1Lhp4uKygC7CP
wqpPTy5td24H8p13I8vqY8C63OlV1dN9sOWMddNrqw4g9PSyzA10v9r2tPHj
DZt2+Cg+smq3dSeYTLlYVusaD47xMDJXTdHhu43pvfpSXUA4fU8ud1YCmDLV
44++RIP5+wWO5YZ0gfh1KxVMKYnA/kXByw2Jr8GEqVuhuUA3EOfY2fXDOQns
yFq4avD9CygOTyukuXcD/2qf7a6xyUDn78U32zUagRPPilmV4W5QZ/8ldaw5
BVQLZ0GVsg7w4+yKxdJTPaC/s1l4L1caUHNTuJN+vhc8EruulAJ7QEFxgtrv
2TQQJv2lguIzCC5xTHVGyPQCI6Ftpk0Vb0DboRe2tJxR4PwzKYbnSS/oLz+l
OHIuHdQYl0oYLf4GdMXSZdKzvcDgc7vuqax0UKfuYxn3cQIMartZSf3XB7jU
2VZ0Pk0Hd+uSZa96TwHb34sG8jF9YI3OYc2AuTfAM+XxxitG0+Cf5+aTuZN9
QPe0kKf6xzRga2bdZ7xxBogbucS/Bv3gAnuUsfXzFJBXe9whcHEWlE8828/r
2w/oK7m/O2slgn0KzxpOdMyBskdTsVNF/cBbovP1NZVY0Ce5yv/6p3lgWP2P
sTjYD25MlF8dmgoF6WcSKJV7FkHyRwGLlpl+4JCVvOrka3dwNmawJahgCbi+
CxvoYPQDxS6flxsG70NJO2/I6sFC3bL4Pd+vqx8w4KW1z/yiYc0rV7Nzwsuo
y8dqMs7k9QOLteFjg5Fp0N/JL+p41jKqhnKPTsiNfiB/bTLUyiMHzu+Yyl2r
v5x6r1XsR50EivNtWXLK8EdoIdr5oqtrOdWUff6eY3Qf4HuuPFDfXAIbvkpH
xV5hpTbIpuo4LfaCTcciNcOuVECad4jUfB8rVdzgzO31p3pBQmIk+zGfGpj/
cirtsAkbVSjCjX/xeQ/4oMN5wpaDDl9vWLGqs5CNupCcJ6uV1w3uNwx1WXA1
wmkNT8ke6RXUXVztrBvfdoHVmWtmKIea4fsXRYcTHVZQVXgdfcW8O4HV+oAt
svyt8O6D0uja7BVUTsnbccWO7WC/uogW53w7/K/y16eO6RXUR9KjQzfWt4J2
rm4lEb8uqC/zPOCWLIX6kNvndOuGFhAkknfyQk03NAjv4N1nQqE+yDIIcVps
AiyKDT7/1vfCDM8/FmwuFGqD3sVALYlGMDVb/rZkXx9UsHG/Xx1MoT4vr39C
k6wHzsMOuv1X+mHODSkf5wwKdecR2bMTy+pAMI++skHqAEyvctpyvoRCTZrP
UFa8VAMqd1/TPvh2EJ4SGJYVbaRQDTTlnqu+qQQWNwZmxWhDMMvq1GWWHgqV
9ezxvg7HL2CBr278btIwZElxuLHzJ4Uqtfm3g9yqz6Ax4qDw6mcj0Iveap3w
B71PkzSRDKOBgeRBtpMBo9Dr5MeChXkKdc0A1Og5XACm1D9U/bIcgyf+jEYK
LWenqsvHUOz25QAn/3C62c6fUOqw+KuBFexUtpObRtgl00GDXODMCN8vWKVx
hjLPzk4VXzjswLo8Hmy1utp949MveE2ngE11JTs1JdZMZMw0GMwOaVhqu/2G
PKIKgaHIjaN27XRcYQFE9gt0iXOOQ70z9znMkPOsOqX8gCsQzqhSededGIcG
gaMObhzs1PaHV7tzpWIgW+Lng++Tx6E4zdVBD62r5KW6ir00CVq+q3vk9HMc
vr7nsykR5fk7eadfzt5MeO/wSmGwfQI+GytpDmZlp744XHspc/c7eJmzNnLd
jQm4peLsnWfL2KlWzwUyYs+/h1q79zpmZU5A1ghxC+MlCtXvxwPzsfgP8Bbr
bpmfwxPQJnPCjYbq5jDk3ZY6+hFGK9perN4wCU+WNK/1nKNQnx1a6+qlR4MH
ONbnXTWehAsG2ywpsxRq6A2BjU9fFsM5lvKt7ncmYcyccr7lNIX6e1QhkXf2
E5yiqrm2ZE7CJlWXePEp5E7qRt68n+E3Ssah0aZJePXfoGzeOIW642XyXiW5
UnjpHLVcYWESPqJ+XNzxi0L1DNbgXaVTBv+un18eumEKmgppRIuMUajr+FjU
18t+gXWx5dRLOlPw9LQHZWiYQt34YXh3DFc5nJTIrDtmPQWv+jrwxQ6ife3m
zg2YLIfHjdbQDLymINuh6gzYT6F2O7880pJWAQUH05rkIqbg4Tdr7b/1ovnU
MPrKd74SVlr6F7FmTcFj3sXydd0U6ksQs3bHxirYdNPiQVvlFOwtFWpW7KJQ
RdN+zosUVkH5EnWZ2o4puEdt/MLtDgr1yN6HT8OPVsM/j1W2FE5OwV+XFVvK
2yhUtrbN4ek/q2HkB95XLygMmNjVOW/VSqH+Or4pzM7+K+zmstQJE2LAW5/H
5KZaKNRTEutmvfq/QpuLotXesgz4TzTc9HYzhTrHQXNesK6BBY5Lf87uZkCB
8GEWw+8Uaq7DjbNvy2pgyL6/InK6DFhwppIm1kShfhapyY9X+Aad7qae6DBk
QM6qkqCeBgq1x8tr1/fAb/BX+nZ2/1MM+Dr/h0tvPYX6ikNQsaLnG6zWuc2Z
Z8eAUR4Wpd10ClW4VGLZFbFaaHHtKL3NiQH91rF5tddRqOYX5D4H69ZCuQoN
iWl3BmzT9lu+Enn4nbZ3Iza18MU2sErImwGdjrbSt9dSqHJlD5sO36uFt/st
hbc8ZEAhSdNx828UqkTAIRFaYi08tExLUy2YAYfZY7+k1FCoj/I/8Pd8QvHL
lmXmRDAgddlbr79fKVStgfkA7o5aeD4lN1M+mgHPnd4kfgB5obnHA/AX/Q/e
evAo5DUD5ohZB+VUU6j+xYG/Tfnq4NmNayeLUxmw8k6kwQbkZww7W5xl6qCr
ZPGJoUy07q2kg4FVFGozR5J2sEYdtLooAdhzUZ0pgadEkMeJrhkJ+K8OvgKH
W+Q/MKDtrduTryop1MsRgnKBp+vglGF66f4iBiwVt+SSQ/77xMOpYOc66M52
J8biEwN+Cxc5/7mCQg1WFDXR8KqDP4Pe1aWWMuDnx6uuWCPfNKFM6X9SB9UH
m65NlzMgvW+P/GI5hao/4rvy6Ys6yMfGo61ezYCqBewyb5Bbzg6/vJtcB5/7
Hj7QWYP6aDkxfBL5X4V/711y6mDJF5G3XnUMeKyTcZ0TufDGcOMLxXXQV4z9
wNoGBtQq71/48oVCPZotEypXVQc7am7c0WxiwG6e86d9kdu53G/ob6iDwQFV
vWbNDLh92Y0oHeSjLjZ8CR11UODq8b1OPxhwE4ezGDfy88dDRMIH6uD5kN0s
G9oYUIZru1djGYUqPzBddv8X+q+3aLxT386AK1bnf32JnJ81RfTmnzpIE6xN
vtOJ5nNlzLoryFe+/0f9O18HVW33PuvoYkDx7Au2+5AL91xqcGGlQ/b/uCvV
ehhwG2VNhAjyvJIr9ZMr6fDlOWe54F4GPM8VuDRVSqGe+HfSYQ8fHZqVttxL
7WPAkvH/Tn5D7lKx2eDBajp8oJfy6FM/AzbLHk5LQX7qhO+VJlE6/DA0Lts8
wIBV/mffPkIuaNjaIL+WDp+uZs/IH2TA756GGY7I4wOKbW+up8Oyr6oKz4cY
cHWuwGsj5DYHlzbWydLh2NHRx27DDHjVol1YFXn46bR15pvpMGvb2OatI+g7
2tDtI4Wcyv1Ps3cLHRppZsz2Ip/vkPhJQb508YurgzIdFq7rGgsfZcAti661
k58p1Ji76UeNdtKhg2SSyeYxBjzt8CqzA/n1+ZL9O1XoMM3WUqwQubFg2ONK
5O47JwxE1Okw2HOT2n8/GXAp2nv1B+RnvnyzcdGkwyfex06VIC93PByRjNxT
cek+fQ8d7hJZyab2iwFTnf6IRyBPknAu3KpNh+Y1+zanI/9BS33xEHlOg1HZ
Wl065M1qC+P5zYADu6YkbyF/3zTfzLOPDoO69OIdkBtXVEc5IVff4MCY30+H
8lLz/1UhVwjnDLBFnn0mc02QHh2mUpKviYyj+blg4mWOvKGgTFPuEB3OZXIZ
2yIv2pPoZIj8hneyfaE+HXoGpfS8Rb61QuvMfuRz8n18HP/R4U2t0iPjyJ8o
bTPRwvvt+Ztvchjdz6Zd/ZUmGHDK4ZbuTuSpYoPnXhmifiWK+Dggvxn65bsi
8kstB+bSjehwW3XYmlfIx9/GXpRBPqyiElB0hA61f6R71CHXKeZbksR1/pMl
W2NMh+/Zzd+xTjLgewGVEWHkhuGLoWkmdBhmQc1SRP44cHWjAHLVlnnKw6N0
mLGs7Ikp8h1aSZALedqRNDd7Uzo8dcJS7xZywagXJRTk61ulc6SO0WFffMb9
V8iVnay/LEO+TTd3ohE5T8extzTkIH+qch7dx7wTLm59ZEaHVvEbi7qR61FG
380ipzfme687Toctf7s/ziMP4yt+yUDeu7O8ORc5i0NfsvAUAy42uPiPI+/f
HqZkcIIOH1fq3tmOXOT2D6WfyBMYosFlyOs9C5z0kI/VbmocRu6aKTlLNafD
r6kcRyyRn6208hhAXswVY1GAnPex27pryOXiNhX2Ilc6titb6iQd7vjc8ccX
+fD17vku5JfH1q70QR5bE0kLRx6l91CrA3uoxekh5P/cNt1KRi7j+H2+FbnM
v7tx6qfo0NVDlSUP+VMP0cIW5Lb7uwcfIZ/uM3YrQ/7D6YjHd+SqJjcUO5F7
HuMbbkDusNkwthF5oCtL3HoLOjw7fjqvCzkQ219Rj9wiNF3UDvkx+NVrDLkh
dfd4HfLpZ3cDk5GLQA6dWeR0pZ0Otcg33fPr70K+Isq9axmDAa0fbRmqQS5b
n6AuYon2GxvjxoX87/H1Nl+Rv3ZuDzBE/vkalWcNcsaVWplq5McuuEx5Ijd1
/NMrgdzC3WOwEvmjE2vNUpBPCUXmbkS+4/KG5Ark+3Y3f/iO/NCpJR9F5A5/
p+PKkee+zZyZRx6WJje8HbnmlbKXX5Dz3gvZuf40HZa+2HpIDXlcS0hEGfLo
N97OB5C7C0wlAuRzs7olpciNp0yXbJFPmb3q2It8MHti7DNy+7qtj32QG13o
W3UIuT3nSyHsRnsFxOOQUwJf7zVEHpVTaFeC41/N2VKI3J6/19cEeY3Tj9xP
uG75ltRG5Oyp+0vNkC9qzFCwJ67iMfmFnEukcPkp5AF6L1yLkbP7Vw0st6LD
KxncnqeRu2XrDNCQL7d77C6M/AGcmDqDvNBz0BS7QqoxryJygwnzC3bIlw5e
7ITI/9ZPT2gi321XSLVHfirl13ns1fsiG/9D3neGIuSAnP7CebIIeeGSTr4l
8lZzxRFH5NBH6Sn2wy4mYQ7ITa5naTgjN1g/uhX7vqu2V92R+7y3fnQV5+ma
WPMROd/fG0b+yIeub2tzQW6aUnML+5XVc2+DkR9zOlp8HXlR2rQS9o0qnoKv
kG/YXZ/ghvzdTYnOQuSVVkvXUpDHWSfc90Be4PrkBXZd78nqbORP1h0Vuonc
8TDLKexexwY2fkQ+3Oodewt5NdsVMewHfvzwLEMu36Wk5IVcfPBlXwE+B958
2lSDvDo/7sod5JNZVenY1WZTGhqRTw7k5t5FfuT87A3sUvnBXu3Ij3DYzHkj
/7OuzAC7jLTs117kqRUtrL7IXaqDpbGPNeWJjiCPcGTjuYf82zlrxgf83bXr
243j+j/vWuOH3NBTqBa7wtsbQdPI+QTW/cb+7F5VKvbgDwlFc8g/lciV+yNP
ueflh933L31kCXmZ5GT0feTv07PssdsV7NnMZk2Hhh6Vxg+Qd3/r08duGJNi
z4F84aIr20PkciNCSthVUoWSuZEHTE3lYB9rjFqD/UHYell+5Kr6wQceIef+
uH4hH7nIc6U4QeT51/lbsPu9SurD3pajLi2MfP+k/YXHyJUPPanF7rCQviCK
fPP0m27s+RNXC7EfNN3QKoF8eeb340+Qrw07kYT98sfwPCnkp/70f8NelN0U
jl18ikVwPfJXRyOUA5BrfzPxww53XLi0EbuHajD2xKFaV+zHb9d/kUVu7POJ
gV2BR9seO4M7JncTcq7kb3sDketse3sS+2SMY8Jm5HnUryHYx46sO4zdaI9m
iCLynIgPfdhv31nQwR5imLpZCTn79FHZp8glMltUsNfaihVvRV5/ovcc9pL2
HEXsrHfumykjdwW2ydjt9wVswJ76xjZhO/LG/s2dxNPOi2FPa9ee2oFc7vjg
6iAcZ5WOAHY2gbXau5Cf2PL8EPZP2R9XYle1O22yG7mOZoYr9iNH1ZZjf/Mx
2lYF+ZPdH2OxX2a8m8tDfla457oq8gtVJTXYa4T8GdhFipROqOG+FA1NYu9R
PfkLu7Gdh7o6csoeDuFgPIfmSkPY+fnLxTWQH+BZr4F9PFa8l8R509GA/flk
6XHsrKMcHdhl9acfayL//drWFXvv9j/N2NVGuA5oIb88xxKCPVOrqgE7GBLr
xB59xCgN+0m96Frs0wPy1/cgV7kc9Rl7n7FLNfaTA6p8ALmtUn8bdqsijgrs
l0RkH2GfZm8ax14qH1WK/c8hwZVU5MDuM1sIcsHQrZ9I/Jss97D/UcwUwX7R
5jTETh+JG8OeuopbHnv2joBC7EtmB0y0kQfx2alhH1sO87F7lo7kY2/iKTqI
vUD/8nvs7CN7eHWQ+4ttNsN+O0QqB3s5b/AZ7LwZITbY1dq/ZeWROR/MxZ7y
YcEZe9Db4UzsOdHb5rGrqCy7ib3PlzUD+zced21d5PpBrP7Yt5pLvsHO41Fy
DzsbZAvG7tD3OBX7pPlbiP3pA94o7PGOi8nYx9VfzWI/fV04Afv3Wcck7BTx
x8p7kd/0kErHvocmm4h9qt/ECvv56w9ysMf6dSRgn8gUC8De/4VRiH25YVg8
qZtH90fsxraWn7H/euEfh928z6gP+0ZBl0rszWPusdhpBjTOfcg5tB7WYqdp
XIrBrpyzVRm7ZHt0E/YjMQHR2N2TPhth1zka3Yq9m5L1Cntl5Akn7F22r7qw
X3ZoeIl9fcCvAOyXeF72Y/96dC3xmMXuZOwXz+UNY9+sdf4FdhnHxhLsulfp
P7Hfk8mKwp7eXt6O3XPL2AT2tz4SxB/2iE9hT75zaBp7W++9SOwOg44c+5Fn
RCTNYqfoTjzHbjRWLIm9/wplHnvXYVfiCrQDW7HvdK1cxJ5v/i8CO0fIVyp2
Lf0ny0LxnNh5ER86Z2KMffT3ETbs5yzEiZuG5lth9z8YTsGucTT3GfaST1KX
sfvdbuPAzqd/hPiOcd+b2I0C13Fht9m7GI79DffJ+9gjxxe5sedppRLfJL8t
FLv7rjZe7Nwqx4nH71sRgz3XIp8f+495QeJT14tSsA+c0V6FPfHTtzDsuinX
32GfM64QxH7N/yHxkLZtRdhZtxxZg93wugnxF3ZKZdh91wYLYd9sJ0789bhC
DfaypQZh7CtMe0OxZ7rLN2EXrBUSxT6jnUOcfvVDG3YFVSkx7MNKfsQZDvq9
2GnBcuIkf/ETxIXs2oax7+/ZKoG9a88O4gpV2r+xz3KtlMQ+YM1DnLotkYGd
U7GH+JjPYAizL9xz2Ll1CtZiNz1XTry42mMRu3n0JSnsRQeTiW9hG11+APme
GSlp7HKKD4g/1zBnx35uP50473Mn4hdllzixc1XYrMM+zW5GXFMgnhf7/L4Z
4m0uWsR55vVWYZ8pvL8eu86VTcRTkg6swV6xZvkG7EmOgsQPmO4Xwa5+wZ04
78XFYOx9y/aJYxf8MEmcW/Yn8Z0CBZLYhcNMN2Ln7G4l7iOtLI39g2MecY6o
SuINWxPXY2/UFZfBXnGhkHjSXNpG7P1uDsQfqKUHM8/hLFnsZm8+EtfniCZu
FJi3CbtQB68s9ouWIcQ9RM5sxr439Ajxh+/8ib+O5lLEfuVQCPFUzpvE6zbl
bMF+f6GJeM21q8Q1O1dtxR5bzSOHfaLDnnhiqNM27IrP9xJffdCK+CqDGmXs
EnYexB3OH2fmn/1zO/aLl5KIf/YzIj4gxrMT+8OrjcQlEvWY+7qruAv75RvL
N2Ev3qJDnDNHZDf2BVc54nbvNIh/HmRTwR53zYA4l8Yu4rfEJoibOTsTnxna
Svw/1WxV7CZNAcR7wzYTlzjmooY9Uj2d+Le9MsRHr6qoY5d7Wc1ct1+a+NH5
JuJS4f3EF3wliH/0cdXAHhCwSDxEVoS4LI+QJnYHP2F57BFPVhN/IR9BXIxb
kfjLP/zEV++X0MJ+KpBKPM6Sh/jDM6+Ib1ttSvzxBU7ilzZw7cHON25L/Lor
O3HDPlfiz6tciVvfZSOunNBDvPa1H/GF1cuJt+zQANhZ74Qy80xcCsJ+51Mw
8WnzOOK71BeIyx8ZI/5651viPhr/iEuJ7qJivxlWSLxe8y/xNd03iW+Y/UJ8
/Z4Z4lzJZcTDTtQTv/h8mvh3t+Xa2Duy24i/+zNFPO7QHuLLeAeY+RtPEr8s
7k587txv4lxz48Rt9qYStxSeIS4a85v4iUttxJPKFonL6f0ifjiMRwd7nQtl
MzkfFH8y4yzsIn6tjJu4vMAYcXcbS+KswoLEU6ZHiAdW3SPudk6UeCo30xVY
koiPhq8lnrZhmHjZzgri+uUbiL9RHyJubT9CPHJ2E/GtHoPEC7JX6GLX0txC
/G3BALPOi9LE628rE98x38+sj54mcYuSXcTplkw/lGtM3H6vGnHn4j7iMhvt
iTuUahLn38h0lqDbxG32U4m/j+0lzrssiPhDOV3iluuYLuEUT/wNx37iK6J7
iG/uzCVePqzHjLOL6S9XlBF/dECfuH1VN/FVio3EDRL+Iy5uzfR7xn3E2VmN
iBeuZPrasnHijYwjxC2yuojnqi0QjxkwIb5ozvTDb1buxX6+2ZRZZ0Gmiw8L
EvdyNiNuVdVJfGjjWuIhnCeIP/Vmeo7VJuIJcebEH+sxvbViG/GGqZPE7/Mw
fdkONeJsey2I+9I7iMtFaRPfEmJJnC2W6WW+esRdkk4T93Zmuu1lQ+J5hVbE
l2szne3EMeLztdbEZUSZ7sh+ijjl3RniehPtxJtzrIkLhJ8lfrGC6To254iL
utsQT0xiehSfA/GsnbbEe/2Y/ueDE/EDv5kudY7pRnYuxNuS7YgrGzCdpulG
fIfuOeK6ykzfJniT+MM2ppsKMT162It4t8t55pyzMH2VgA/xoSmmC4y0EfdR
9SP+y9me+O96pv85/YD4+G+mFxUzPWzmEbPvZheYfcxg+u6AAGZ9INNPvWB6
k2wQ8XjZi8y5fcJ0Hb0Q4jQPprveZnq6fRizDrVM93ZiutjDZ8RnZRyIq9sw
3Ur/OfGRi0yfMGP6a64oZpy3TE/SZ/pY1QviNTNMD9BmurnmK+KHlC8x81Fh
enlaNPGyC0y32PJ/+5WMJa4dz3R+GaazGcQx61PP9BIJptPd45n7Xe7IjL+a
6dHJCcQXlJkez8P027GvidcdZzqdwnTLyETir28znYWF6VohScSvv2a67Vwr
M3+rZOJnypheyWC6yZYU4gcHmL71N9M7/jJ9J+Uy8eARpv+LSSV+SZrpM/1M
FzmUxsxHneknu5m+a5LpXUeZ/rSd6Vaeb4g7XmD6lxamP6SkE1+6zfSFRqbn
BjL9cSjT/wcJLRCz
        "]}, {Automatic}],
      Editable->False,
      SelectWithContents->True,
      Selectable->False]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.754824351668268*^9, 3.754824398200721*^9, 3.754824942951151*^9, 
   3.754825537898213*^9, {3.754825711645046*^9, 3.7548257169705276`*^9}, 
   3.7548264327594037`*^9, {3.754826540924655*^9, 3.7548265666237373`*^9}, {
   3.7548266326799445`*^9, 
   3.7548266645214186`*^9}},ExpressionUUID->"54882c00-2ba6-4d47-aea9-\
75305e1f8dbe"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   TagBox[
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJxN1H8w02EcB/DVZY3yY5bt26L8OK46TUZ+pExdElcySl2jKKMTJsb6daVi
TNKuNJVQQ6tbRML50UruVEpdfhRqnZzmcqfbmG7Ypfqj5/M8d88997p7/nme
+7zfDocF4fyFJBLp6N/97/y/Rjl6OpVgBPy3i1SlEniDvwxnGlsjwcsSqWfs
roMVfSb1ZCqB/LjnatQFk+XIIyzxk/JvTOSn88bGrYkrkdXCmA+ih47IP7++
TJDkOyN/OhgYEma9GnlPZFkT//Ja5HHeVH6swhX5+15Tb5sWFvL5g1SFJng9
8oyHZXQtzR15viOKzv0MjhiabNdls5GzDxzKybP1QK5OdWkQ1oE3OHCf5LI8
kcN6+S6VCrCLeM1rkdUG5IFoxmZGPLj4Yp4v0QiWFPabzunBzCMdhRJXL+QC
H1FIYSRYZ5swW58GNlib92/LAWc8s6lPw6welI6WY14i+77FgJn+3FdzRwwu
mdB9/JALrojuiX0sAU86Ttd2Ydb9qosYwezrb7xmmQ8O5I3Mx2K2tQ/N0WCm
lQZZ6DEz7w2Pky6BgwW6MgKzZ1jBJAczv+90UArmPo3T71TM73pWWKZjdrc6
ckqIecp8hpOB2ZmtPoRbN2gxhN/PM+5TH8fMMkmJF2B2qn4XnIRZXZS0Kg5z
v2YBeSfm7fJFlGzs/ZK2kpMLsf/XTpVwTmSCN3nLk3U8cLFAcXyWDW66YTXn
+xvmKeU9M+JOO9hBNkRhp4OdxrzSW+zAfoauB0wVzHNqVY301g7w6l4FvaAb
8vA1qtWrywe8y8b6jLIM8jQ30J13zAB505pVuk64gyssiHP+8ZDX6u1Zu8lj
kGcSp2GjdgDyfn7dJJ/bBn3glatVZnpAXwxYdjrwpNAnr0qp90RKR+Qae2NA
AAv6KFyntYuIoyPzCPGaLH9w85tS4goBlpF9vnHf2iA3mct6+GywSpp65baB
hqwg1XD1x6jItyo2DZO2ghsoKskPBljI0t8N7bBCvjCYLogjwGOzjkV7RObI
bglRxOBKsGSzRk7rXIp8I0Xpp6SBYxjl5ESlGfLZzheUyjBwwewjN9m0KfJ4
U6lFlT84eUxo0jFCQd6vOSwvEYPvD/k0u60Fy2/WeGR1Lw74A3lWZXM=
      "]], LineBox[CompressedData["
1:eJw11gk0VVsfAHA8NHCJEC7uuYZInoTrCL2zXxMKiaeEuqWSypAypFxU+Ip0
JZdQeg2EZCgi5G6RoRCRipAGylAyRuT73/Wt76x11jm/tc86+7+n/95Md1+H
AyJCQkIv4BY8/3dpov+/LX90881lmiZa9bf9szu7ufzNMSb3VeiaSDbEvvKY
03V+WubrRzQTTTQZs9lSaX0e35Ebfcv3iCZyu2J45oEan+/yJlR3Y5sm6tL7
ulPudRO/J2HUtDxNC/UEcYf8bbr5vIYdEduUtdHOefXwGqthvsfBkKzp8RUo
xzF52ePTs3xy9sq+cUs9NMVJLRGe+wOnzl1dJ2evj55zEjlcyUV4T6z+5CYt
A1TlZeVcKiKF85nlKVkzBmjaPHjemS6Dhxs4X9c0rEbjLO5dSf2l+Ou1ASIi
yhDJXMt8Ur1AHp86wQtL0zRCQla39Z1TFfBdKlbOGxshmid1I1lXEd9yPBq6
aYMxKko48rODo4QP7vUuSn5kjJbxNoQtvKeMDYszVbfosZBn5cvu9+103OFh
GilzgYVOqOt0ibeoYE/vIJ8/v7BQbtS2SqpKFQepu/aRpAlyGXoj3p+ghlMj
c16rBJkgnFr4TQsxsHT+tL7IfRO0tj+xX/s9A38eK7Y71mOC4kIVqyf1Ccyv
UqgLFycR01HcOtKDwCamNnuL1Ul0WadUNDqOwHuv3mujaZDIcLnceelLBHav
ka/YBxZJ6XRPANc/kx6jaZLIxK9R4Wo8gVtD/upz1SKR243x8FsJBPa5IjHZ
pU0i89Zv++KvEPhb+2DXST0SLfblcEeuE/jDhQE6Bq8fzWrc8y+Bj47ENIv+
SaL/lIi5N4MvG9RduwAm+Xti790g8IHJtDqePol6A8y+s28RmOnju++iAYma
XSQ+3c4gsF20S72iMYl+SmYX5uUQ+NbpMLQNfE6k8IDsPQJ/yqhQOA/OLm/f
6g9We3f1/ST4l3rIC1Yugb232g88Y5FI170zJC+PwBdPrnz7D0miofEDCZz7
BM7t6Vt/FmwXcvhtK9hj9RytANx+7M2OFQ8IHOxqjRebkkhU9g/hl2BaffW1
h+C2BTJiykUE7h2xpUbWkMhH6dXriGICz5nsuiFnRiLOY05RE/jUozl3U/Cr
uNaGZSUQX9pv0VBw8gQv8w44udmhWticRFzUJVfxiMCLkksNB8HnT5+relpG
4O1HWFwxCxJpBhWs/aOcwJanvbcwwPeuVfygwOflGR/twT/PXlpQDJ6YrOPm
gF01jgykPiawrDnj/ca1JJoXseciPoH3RD3XcQKH5Dl7+4A/yvZ+3gf+VN+a
lgq2KrJ9HAaWjdKZHQNfS7nz+gKYlyumw8AEltpz1CMZHOrgdscajNsce/PB
qvkh/14FO8v7NZaBr9yyVn4Kfuwsol8DFo5K7B8Cby+KtHkL9mU+DDGrJHAX
8+TiD2Dn2pgNe8DvyH6LAfAvVj87ElxZsGr+J/hml/GlRvCSlTTuPLj24Yo7
I+CsEwcvi/1For4rWUuWPoH5eImSlAArlRc1GoOjPBKnpcGf7bZ2O4HZ3V6u
cmDTwKB1geDct1WrFcHHbFfN8MCjBldD6ODdfUFiRQIXTpqrgVnWDvtbwVi/
zZcA3/TnK/wAF7NZiupg/i6sIlVF4DBhOksDrDjiFKgLlqyJrBE4k3ZaYxP4
+o7ABoF7L67T3At+6jy8SeCMdaknToHd9g+yBP+z/xZD8MBcml+yoL5sW3mV
XHBnT6ifIJ5pWdMjNeDFbPkKQbw/+8Zp3WCLBawwQXvaPW1EJ8DvbboLBe1F
+pSdRDWBS67KsJeAd1Y1DhLgTtcXHEF/VWT/fMcCP+hfJiMOPrcLMzeDhRIH
FYXANlu0SneB3xRu5k1D/yt3aGccBWdEs6JGwWc86j6fAetvzxkUjB93/YLg
BHC0Xd5Twfg2ln5ip4NX3fpLrgNsKbk3pQg8eMrldTM4xidE5ym476eIdC34
thS5uA18w9C0rBysseQS9QE8u2ams0BQf2x03XewoaK1XwaYmaiRPitoT5Pm
qRSwg6Hbq4VPCTy8I3Y6FmzPNt4pB36cfmYoHIxkcgwY4Pmbov8cB7cYVrmu
ANcZLjU4ADZPD+4wBMca5IZvFxi9yDEHax19tdESTH9Z9XI9+Nnjc2EkOJex
w2YLWLG79k9tsOOnc0oOYLmL8fYK4OkWZzNnsN/ZL/2i4IOXanJ3gXd71Y+N
wnpd9KQl0B28/rux/3tw5nRwvAf4SbbuoUawV3WF8GHwxdqTJqXgznaPEi/w
rxLMyQC/erK73gccQZv9Kx5sKpRhfBR8ykbvJAc8M2c+I/D8hP0qT7CeOqHs
BxY7e2i3gyB/1G9LEJQ7HghYYAG+bd3s6Qs+u8BfVwvMHUpJ8gaLNO6vpYFZ
E/nEEbC0rGX3BOQr3Wsyop5g/kpl3y4wIV/+935BfAe7gqvBnyLy3rLB4bS4
39ng3RKDz13APa6r5+LAvApvRSdBeQwOCARn3zXh24FvNFp4uoLftW/AlmAH
m/Q2ChxlnkRHYI7udKkGmNmg10IK+tubPfEV8muGlOoWLUH8Y77WDeBlwQHS
dPAxVc9lueDocEn9JWClbRLMo4L8HPAj+CfMn/j1hW724JWvLO4MgiXvIlkD
cHhhpX63YP67zg8MQ77n+B+zqQSrWo057APbxls+CQMvVkzaRYFRnUmlN5if
KfdBGUymOCq7gq9nJzk3w/5RECTdaQReO8b7ZQzu/8ZO7IL1enujuuJnExIl
Hnk6KgOW+FjALwF/GS66PAH5RjhUpDcG7J1WdPEN2PpMT5wBuKDkbfxVsCXN
Kf047HcqKwJaVcCq9ODr741IFJfTbfQb8i9700H3O+DflTs02sAh4qv/4w1+
Ebp9axa4uG3L5JQhiQJa2922gZN8bA6LgTGHY3sF9gPPvbUZIrA/T5hJnxGu
IPDrVXM7o1aSaEetDP3vUoj/B+15AUGiqY/d08fzCVxj0/+pRQzOA9qftYd5
8H3x8fQX3SYojT2wctIL8t2voGfsXBNUcc6xiGVK4AtShwen4bwzFFqmbDrF
wGXOQsEPDE2Qo6R5lKsLAwfMefky4LzklDvm4pWnhrnRu5/58lgoqplepzei
imsWZTBSDFjom+5Hnp6YKl5vI7sjq9YYsaNe3ZCWVsEtq2OlTlobo8bk2d6Y
z8qYe74vcHutEcpenO1lV6CE5dLkpk6ZGyHxeGZU035FvC6pc0SGZ4i+TzQ2
trxWwI6JOjFNA6uR01zRMX8kjw/R93d5EqtR+XLx6jmXpXjcZWzfuY0GSJph
ntdvI4Mlquu2dNTrIwZ9pPDSHinMs7JKEM/TQzFNQ+id3SJ8ljO8f46ji5p6
kvTSF4ri0usBTX5yOshtatfhcs4sv60l9aGnrBbSPcvILHce4vc+v2PUWcpE
Mi8PEfyghxSNZV66LZuJpkaq76kallHZlzNVi5OZSDuy6Rk1wqfc+m0LbU8w
UV1CletYWTX1r+tM8G1jJspX/7ix0KWJOu0lf7c2i0DLg1Utbv96Qy1qYqaQ
CxloeFZR/nh+H+WzvPfkt141xPTr7kDO/VScRSP2K1NDD9+9MU4T+kK5pKcd
6vBWQ+UbhdoWOX6lzLY731ZtVkVnkoXT7v8epJ44TBAZ51VQT8TT5MaSEWrD
r9mocrYKSlK8IG8t84OamslOjmOpoLXrRGKkDv+glAKqzbzf05G+zNrRQJVR
6qiC+ky7IR15eFprl0SMUW2kVsQjcTqyeqSlFdozRuVcv/52a4cyMos0/R1j
Nk5NSDf8Ex+ujN7VbmZwfoxTmpunk80dldHOK8d12LYT1OQm1a/xWsrIJzky
JiprggoZOP4ocUoJqaXn+Y+KTVLLo7uDNtYrIc2+NTM33Cep/wIZmeoE
      "]], LineBox[CompressedData["
1:eJw11gk0VWsbAGBcNHCIEA7OPoZIriTHFrrbTZJC4iqhTqmkMlZIOajwFxXJ
EIqrzMlQRMh5RYZClFRkaqAMJWNE/e9Z//r3Wnvt/axvr/293/R+H9PFy/aQ
AB8f33O8ec//Xarw/7eVD2+9uUZThTV/2zzN2hvF3Rqpf0+BrgqSgTbVx+1T
uSnZrx/S9FVhOnKruZxpAdcuKuK21zFVcL6ue+6+Epfr+CZI06xdFbq1vuyW
et3C7Y0dN6hMUYNe/6iRk5Y93LimXaE75NVh92/lkLoto1zXw4E5s5OrIM8u
ccWjs/Nccv76gUlzLZjhJJfxL/wByQs3NkrZaMMzTjwnSnQJ7LusPb1ZTQdq
3Lc4lAuIQSGzMilnTgdmjQJ+O9AlYLSJ82V901qYZEXdEdVeDl9uDhGh4bog
cTP7ce0iaThzKi44RXUd8G1J13ZIloE71GUpD1gHNDcqLVFTFm7beQdt3qQH
JbHHfnRy5ODwfo+SxId6sCJuU/Diu/KgW5qtuE2LBW7VL3r6OujQ6WoQJnGJ
BaeUNbqF2xTAzcPf88/PLMgP31FN1SiCv7LTAEnqg+PIG+HBWCVIDst7reCv
D5Bc/FXNhAHihbPaAvf0YcNg/KB6HwM+TZRaH+/Vh+gg2dppbQK4NTINIcIk
MO2ELcJcCdA3sNxfqkzCNY1ywYhoAvbfuNtOUyFBd6XURfGrBLjUSVcdQAsk
dbnEohufik/QVEnQ92mWuRFDwMvAvwac1EhwTpsMuR1LgOd1keludRKMXn49
EHOdgK8dw92ntUhY6sWJGksl4P2lITqgTcdzmvf9S4D3WGSr4J8k/KdMyKUV
fU2n4eYlNMndd/luGgGHplMa4rRJ6Pc1/Ma+TQDT0+vAFR0SWh1FPqZnEmAd
4dgoq0fCD9Hc4oI8Am6fDTbZgb4gUHxI8i4BHzOrZC6icys7tp9EK7270TeN
/qkc+JyVT4DHdpuhpywSNF26AgsKCLhyevXbf0gSRiYPxXLuEZDfO2B6Hm0d
ePTtS7Tr2gVaEbrj+Jtdq+4TEOBkAUsNSBCU/IP/BZrWWHvzAbp9kYSQfAkB
/WNW1Nh6EjzlXr0OLSVgQX9PmpQhCZxHnJIW9JmHCy4G6FfRL5tWlGF8Kb8E
g9CJU3HZWejEVttafiMSoky6paoeErAksVx3GH3x7IWaJxUE7DzGihIyJkHV
v2jDH5UEmJ/12MZA371Z9Z1CX5RmfLBB/zh/dVEpemq6ISoP7aRybCj5EQGS
Row+sw0k/BawiTLhErAv/JmGPTqwwMHDE/1Bsv/TAfTHxpcpyegtJVaPgtGS
4RrzE+ibSVmvL6Hj8oU0GECA2D5v10R0kK1zlgUa2u36C9GKhYH/3kA7SPs0
V6Cv37aQf4J+5CCgXYfmD48fHEHvLAmzfIv2Yj4INKwmoJt5eul7tEN95KZ9
6HfkoPEQ+idrkB2Gri5a8/sH+la33tVm9LLVtKjf6PoHq7LG0DmnDl8T+ouE
ges5y5Y/xvl4lRIVQctVljTrocNd42fF0Z+st/fYo9k97k5SaAM//41+6Py3
NWtl0cet1szFocd1bgTS0XsH/IVKeC6eNlJCsyxsD75Eg3a7F4G+dZIr8x1d
ymbJKqO5e0BBrIaAYH46SwUtO2bvp4kWrQur4zmbdlZlMzp1l18Tz/1XNqru
Rz9xGN3Mc+bG5FNn0M4Hh1m8/9l8jSTi0FE0n0RefblW0gr56K7eIB9ePLOS
Bsfq0EvZ0lW8eH8MTNJ60MaLWMG89nS4WQpOofsse4p57TXRpqxFagkouyHB
XobeXdM8TKC7nJ5zeP1VlfvjHQt9f3CFhDD6wh5gbkXzxQ/L8qEtt6mV70G/
Kd4aN4v9L9+pnumNzoxghY+jz7k2fDqH1t6ZN8wbvyjTRQGx6Ajrgie88W0u
/8jOQK+5/ZdUJ9pcdH9SCXr4jOPrVnSkZ6DGE/TADwHxenS6GLm0HZ2ma1BR
iVZZdpV6j55fP9dVxKv/ckTDN7SurIVPJpoZr5Ixz2tPi+qZJLStrvOrxU8I
GN11efYy2oatt1sK/Sjj3EgI2kQiT4eB/n1L8J8T6DbdGqdV6Abd5TqH0EYZ
AZ266Ms6+SE7eTZ5nmeEVvN+ZWaOpr+oeWGKfvroQjCJzmfsstyGlu2p/1Md
bffxgpwtWupKjI0MerbNwdAB7XP+86Ag+vDVuvw96L3ujRPjuF6XPG7zc0Gb
ftM72YfOng2IcUU/ztU80ox2r63iP4q+Un9avxzd1eFa5o7+WQacTPSrx3sb
PdGhtPm/YtAGfJl63ugzllqnOei5BaM5nn9P2axxQ2spE/I+aKHzR/ba8vJH
445YXrndId9Fxuh0i1Y3L/T5RSc11dBRI0kJHmiB5oP1NDRrqpA4hhaXNO+Z
wnyleVNC0A3NXS3v1Y0mpCv/PsiL73B3QC36Y2jBWzY6hBb9Kxe9V2T4mSO6
12ntQjQ6rspD1p5XHgm+fujcO/pca3Ras7GbE/pdxyYwR9taZrRT6HCjBLoJ
mqM5W66CZjZptZG8/vZgT33B/JopprhNjRf/hJdFE3pFgK84HX1c0W1FPjoi
RFR7GVpuhwjTm5effb8H/MD5E2Na7GyDXv3KOGsYLXrHRFIHHVJcrd3Dm/9O
v4dGMd9zTh63rEYrbpmwPYC2ijF/HIxeKpuwh0KbNOhXe6C52VLv5dFkkp28
Ezo1N8GhFfePIn/xrnXoDRNxP/XQg1/Z8d24XtPNlGU/6ZMQf+zJuARa5EMR
twz9ebTk2hTmG/4ggf5ItEdKyZU3aItzvdE66KKytzE30OY0+4wTuN8prPJ9
qYBWpAek9q0jITqvZ90vzL/szYddstC/qneptKMDhdf+xwP9PGjn9hx0afu2
6RldEnxfdjjvQCd4Wh4VQgOHY3Ud9wO3/fWZArg/TxmKn+OvIuD1moXd4atJ
2FUvQf+7HOP/TntWRJAw86Fn9kQhAXWWgx/bhPA8oP5JfTQOvy89kfG8Rx9S
2EOrp90x3/30f8rO14eqC3YlLAMCLokdHZ7F885IUIW8wQwDKhz4Au7r6oOd
qFG4kyMDfBfcvRh4XrLPn3B0L1CCqIi9T73iWBDeSm/QGlOEuiWZjCQdFnzV
/BCnJaQIppaSu3Lq9YAd/ipNXFwB2tZeFjttoQfNifP9kZ/kIerigN/O+nWQ
uzTX3bpIDqRSpGbOGK0D4RhmeMtBWdiY0DUmEacL36aam9tey4BdvEZky9Ba
sF8oOX7SRBqO0A92uxFroXKlcO2C43KYdJw4cMFMB8QZRgWDlhIgUtuwrbNR
Gxj0seKr+8QgbsuWWOECLYhsGTF5Z70EznNGDy5wNKGlN0ErY7EglKf6tvhI
aYDzzJ6jlZx5bntb8gM3STXQPM/IrnQY4fY/y1rXVc4EiRdHCK7/A4rGMirf
kcuEmbHau4q6FVTutWzF0kQmqIe1PKXGuJTzoFWx1SkmNMTWOE1U1FL/Os0F
pOsxoVD5g1mxYwt11l36Tn0OASsDFI3Tf76hlrQwk8jFDBidl5U+UThAea7s
P/21XwmYPj2dJg6DVLRxM/hUKMGDd2/0Uvg+U44ZKUc6PZSg0oyvfYndF8pw
p0O6YqsinEvkT7n3a5h6bDtFZF5UgN7QJ4nNZWPUpp/z4ZVsBUiQvSRtIfGd
mpnLTYxmKcCGjQKRYke/U3K+tYYefXTQltgw7qcwTnnLKM916NLB1c1CvSx0
gmon1UIfCtNhy0M1taDeCSovNfXt9k55MAwz+BVpOElNiTf9ExMiD+/qtzI4
3ycp1a2ziUZ28rD7+gkNttUUNb1Z8UuMmjx4JoZFhudMUYFDJx7Gz8iBUkbB
yXGhaWplRI+/WaMcqA6sn0tzmab+CyxbUZM=
      "]]},
    Annotation[#, "Charting`Private`Tag$36942#1"]& ]},
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"ScalingFunctions" -> None},
  PlotRange->{{-23.24273374451843, 23.24273374451843}, {-8.385628525183243, 
   22.544759742262745`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.754824351668268*^9, 3.754824398200721*^9, 3.754824942951151*^9, 
   3.754825537898213*^9, {3.754825711645046*^9, 3.7548257169705276`*^9}, 
   3.7548264327594037`*^9, {3.754826540924655*^9, 3.7548265666237373`*^9}, {
   3.7548266326799445`*^9, 
   3.7548266646943207`*^9}},ExpressionUUID->"e0499b1b-25e5-4b95-89e5-\
5d8bbd7e14c5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TestInit", "[", 
  RowBox[{"10", ",", "10", ",", "10", ",", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"x1", "[", "t", "]"}], ",", 
        RowBox[{"y1", "[", "t", "]"}], ",", 
        RowBox[{"x2", "[", "t", "]"}], ",", 
        RowBox[{"y2", "[", "t", "]"}], ",", 
        RowBox[{"x3", "[", "t", "]"}], ",", 
        RowBox[{"y3", "[", "t", "]"}], ",", 
        RowBox[{
         RowBox[{"x1", "'"}], "[", "t", "]"}], ",", 
        RowBox[{
         RowBox[{"y1", "'"}], "[", "t", "]"}], ",", 
        RowBox[{
         RowBox[{"x2", "'"}], "[", "t", "]"}], ",", 
        RowBox[{
         RowBox[{"y2", "'"}], "[", "t", "]"}], ",", 
        RowBox[{
         RowBox[{"x3", "'"}], "[", "t", "]"}], ",", 
        RowBox[{
         RowBox[{"y3", "'"}], "[", "t", "]"}]}], "}"}], "/.", "s"}], "/.", 
     RowBox[{"t", "\[Rule]", "80"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7548242088228197`*^9, 3.7548243004059887`*^9}, {
  3.754824332617559*^9, 3.7548243388540993`*^9}, {3.7548251564204836`*^9, 
  3.7548251578615975`*^9}, {3.7548261199732494`*^9, 
  3.7548261717880783`*^9}},ExpressionUUID->"76d0c881-cf9a-461b-834d-\
7e0dad56c245"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Center Position and momentum as :\\n\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "1.9245008972987556`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"\\n\"\>", "\[InvisibleSpace]", "0.`", 
   "\[InvisibleSpace]", "\<\"\\n\"\>", 
   "\[InvisibleSpace]", "\<\"init Energy as :\\n\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "6.080234014231374`"}], ",", 
     RowBox[{"-", "5.405342515121237`"}], ",", 
     RowBox[{"-", "5.405342515121237`"}], ",", 
     RowBox[{"-", "16.890919044473847`"}]}], "}"}]}],
  SequenceForm[
  "Center Position and momentum as :\n", {0., 1.9245008972987556`}, "\n", 0., 
   "\n", "init Energy as :\n", {-6.080234014231374, -5.405342515121237, \
-5.405342515121237, -16.890919044473847`}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7548236793334646`*^9, {3.7548237620144978`*^9, 3.7548237783358827`*^9}, {
   3.75482388994121*^9, 3.754823902244646*^9}, 3.754823972562381*^9, {
   3.7548240548021193`*^9, 3.7548240726878786`*^9}, {3.754824104789913*^9, 
   3.754824138418028*^9}, 3.754824301994835*^9, 3.754824340112753*^9, 
   3.7548244101823635`*^9, 3.754824953196562*^9, 3.754825159892973*^9, 
   3.7548255491739874`*^9, 3.7548257365774803`*^9, {3.7548261217483416`*^9, 
   3.7548261744634466`*^9}, 
   3.7548265806588316`*^9},ExpressionUUID->"231085e6-b035-4279-9e3b-\
af7ff6a55d7c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:65b9\:6cd5\:4e8c", "Subsection",
 CellChangeTimes->{{3.7548190824430656`*^9, 3.7548190938465557`*^9}, {
  3.754881615122414*^9, 
  3.754881619490469*^9}},ExpressionUUID->"39cf0792-4892-4838-82bc-\
74ffa79929ae"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"https", ":"}], "//", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"blog", ".", "stephenwolfram", ".", "com"}], "/", "2017"}], 
      "/", "08"}], "/", "when"}], "-", "exactly", "-", "will", "-", "the", 
    "-", "eclipse", "-", "happen", "-", "a", "-", "multimillenium", "-", 
    "tale", "-", "of", "-", 
    RowBox[{"computation", "/"}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.754881621251656*^9, 
  3.7548816312977247`*^9}},ExpressionUUID->"7776b9b9-84ba-4473-b59f-\
0a769eff0112"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ThreeBody2", "[", "ndim_", "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"eqns", ",", "inits", ",", "sols"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         SubscriptBox["m", "1"], ",", 
         SubscriptBox["m", "2"], ",", 
         SubscriptBox["m", "3"]}], "}"}], "=", 
       RowBox[{"RandomReal", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", "3"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"eqns", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           SubscriptBox["m", "1"], " ", 
           RowBox[{
            SubsuperscriptBox["r", "1", "\[Prime]\[Prime]"], "[", "t", 
            "]"}]}], "\[Equal]", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SubscriptBox["m", "1"], " ", 
              SubscriptBox["m", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["r", "1"], "[", "t", "]"}], "-", 
                RowBox[{
                 SubscriptBox["r", "2"], "[", "t", "]"}]}], ")"}]}], 
             SuperscriptBox[
              RowBox[{"Norm", "[", 
               RowBox[{
                RowBox[{
                 SubscriptBox["r", "1"], "[", "t", "]"}], "-", 
                RowBox[{
                 SubscriptBox["r", "2"], "[", "t", "]"}]}], "]"}], "3"]]}], 
           "-", 
           FractionBox[
            RowBox[{
             SubscriptBox["m", "1"], " ", 
             SubscriptBox["m", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubscriptBox["r", "1"], "[", "t", "]"}], "-", 
               RowBox[{
                SubscriptBox["r", "3"], "[", "t", "]"}]}], ")"}]}], 
            SuperscriptBox[
             RowBox[{"Norm", "[", 
              RowBox[{
               RowBox[{
                SubscriptBox["r", "1"], "[", "t", "]"}], "-", 
               RowBox[{
                SubscriptBox["r", "3"], "[", "t", "]"}]}], "]"}], "3"]]}]}], 
         ",", 
         RowBox[{
          RowBox[{
           SubscriptBox["m", "2"], " ", 
           RowBox[{
            SubsuperscriptBox["r", "2", "\[Prime]\[Prime]"], "[", "t", 
            "]"}]}], "\[Equal]", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SubscriptBox["m", "1"], " ", 
              SubscriptBox["m", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["r", "2"], "[", "t", "]"}], "-", 
                RowBox[{
                 SubscriptBox["r", "1"], "[", "t", "]"}]}], ")"}]}], 
             SuperscriptBox[
              RowBox[{"Norm", "[", 
               RowBox[{
                RowBox[{
                 SubscriptBox["r", "2"], "[", "t", "]"}], "-", 
                RowBox[{
                 SubscriptBox["r", "1"], "[", "t", "]"}]}], "]"}], "3"]]}], 
           "-", 
           FractionBox[
            RowBox[{
             SubscriptBox["m", "2"], " ", 
             SubscriptBox["m", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubscriptBox["r", "2"], "[", "t", "]"}], "-", 
               RowBox[{
                SubscriptBox["r", "3"], "[", "t", "]"}]}], ")"}]}], 
            SuperscriptBox[
             RowBox[{"Norm", "[", 
              RowBox[{
               RowBox[{
                SubscriptBox["r", "2"], "[", "t", "]"}], "-", 
               RowBox[{
                SubscriptBox["r", "3"], "[", "t", "]"}]}], "]"}], "3"]]}]}], 
         ",", 
         RowBox[{
          RowBox[{
           SubscriptBox["m", "3"], " ", 
           RowBox[{
            SubsuperscriptBox["r", "3", "\[Prime]\[Prime]"], "[", "t", 
            "]"}]}], "\[Equal]", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SubscriptBox["m", "1"], " ", 
              SubscriptBox["m", "3"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["r", "3"], "[", "t", "]"}], "-", 
                RowBox[{
                 SubscriptBox["r", "1"], "[", "t", "]"}]}], ")"}]}], 
             SuperscriptBox[
              RowBox[{"Norm", "[", 
               RowBox[{
                RowBox[{
                 SubscriptBox["r", "3"], "[", "t", "]"}], "-", 
                RowBox[{
                 SubscriptBox["r", "1"], "[", "t", "]"}]}], "]"}], "3"]]}], 
           "-", 
           FractionBox[
            RowBox[{
             SubscriptBox["m", "2"], " ", 
             SubscriptBox["m", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubscriptBox["r", "3"], "[", "t", "]"}], "-", 
               RowBox[{
                SubscriptBox["r", "2"], "[", "t", "]"}]}], ")"}]}], 
            SuperscriptBox[
             RowBox[{"Norm", "[", 
              RowBox[{
               RowBox[{
                SubscriptBox["r", "3"], "[", "t", "]"}], "-", 
               RowBox[{
                SubscriptBox["r", "2"], "[", "t", "]"}]}], "]"}], "3"]]}]}]}],
         "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"inits", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             SubscriptBox["r", "i"], "[", "0", "]"}], "\[Equal]", 
            RowBox[{"RandomReal", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "ndim"}], "]"}]}],
            ",", 
           RowBox[{
            RowBox[{
             SuperscriptBox[
              SubscriptBox["r", "i"], "\[Prime]",
              MultilineFunction->None], "[", "0", "]"}], "\[Equal]", 
            RowBox[{"RandomReal", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "ndim"}], 
             "]"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "3"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"sols", "=", 
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"eqns", ",", "inits"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           SubscriptBox["r", "1"], ",", 
           SubscriptBox["r", "2"], ",", 
           SubscriptBox["r", "3"]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", "100"}], "}"}], ",", 
         RowBox[{"AccuracyGoal", "\[Rule]", "10"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Switch", "[", 
       RowBox[{"ndim", ",", "\[IndentingNewLine]", "2", ",", 
        RowBox[{"ParametricPlot", "[", 
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               SubscriptBox["r", "1"], "[", "t", "]"}], ",", 
              RowBox[{
               SubscriptBox["r", "2"], "[", "t", "]"}], ",", 
              RowBox[{
               SubscriptBox["r", "3"], "[", "t", "]"}]}], "}"}], "/.", 
            "\[VeryThinSpace]", 
            RowBox[{"First", "[", "sols", "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "0", ",", "10"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", "3", ",", 
        RowBox[{"ParametricPlot3D", "[", 
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               SubscriptBox["r", "1"], "[", "t", "]"}], ",", 
              RowBox[{
               SubscriptBox["r", "2"], "[", "t", "]"}], ",", 
              RowBox[{
               SubscriptBox["r", "3"], "[", "t", "]"}]}], "}"}], "/.", 
            "\[VeryThinSpace]", 
            RowBox[{"First", "[", "sols", "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "0", ",", "10"}], "}"}]}], "]"}]}], "]"}]}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.753953038160448*^9, 3.7539531571420684`*^9}, {
   3.7539532126806617`*^9, 3.7539532161904507`*^9}, {3.753953296992395*^9, 
   3.7539533034641266`*^9}, {3.7539534311793833`*^9, 3.753953435078374*^9}, {
   3.7539535529775734`*^9, 3.753953634353612*^9}, {3.753953667076908*^9, 
   3.7539538121313543`*^9}, {3.7539538427792444`*^9, 3.753953948406311*^9}, {
   3.753954073621009*^9, 3.753954098606678*^9}, {3.7539542066264772`*^9, 
   3.753954337560085*^9}, {3.753954438452976*^9, 3.7539548492947273`*^9}, {
   3.7539552958267865`*^9, 3.753955346005698*^9}, {3.753955378128911*^9, 
   3.753955446481533*^9}, {3.753955700536141*^9, 3.7539557372320395`*^9}, {
   3.753955814623777*^9, 3.7539560666790533`*^9}, {3.7539562249625864`*^9, 
   3.7539562410599575`*^9}, {3.7539562960092077`*^9, 3.753956362484929*^9}, {
   3.7539564550084953`*^9, 3.753956456017073*^9}, {3.753956519319948*^9, 
   3.753956625032404*^9}, {3.753958865369805*^9, 3.753958866842377*^9}, {
   3.7539597519155865`*^9, 3.7539597552776523`*^9}, {3.75479707129042*^9, 
   3.754797073638227*^9}, {3.754797432366599*^9, 3.754797568453724*^9}, {
   3.754801104682784*^9, 3.754801109660242*^9}, 3.754801179077045*^9, 
   3.754801223020688*^9, {3.754803194756467*^9, 3.754803237855266*^9}, {
   3.754803329129047*^9, 3.754803360233974*^9}, {3.754803527940538*^9, 
   3.75480356153327*^9}, {3.7548037300160837`*^9, 3.7548039395830097`*^9}, {
   3.754804004002846*^9, 3.754804031283214*^9}, {3.7548042234503107`*^9, 
   3.754804261799327*^9}, {3.754804345175445*^9, 3.754804348425639*^9}, 
   3.754804597321044*^9, {3.754816617706512*^9, 3.754816619598507*^9}, {
   3.754881664627779*^9, 3.754881852426856*^9}, 3.754881913130946*^9, {
   3.754882876922532*^9, 3.754882976732182*^9}, {3.754883205674279*^9, 
   3.754883209428907*^9}, {3.7559194084964175`*^9, 
   3.75591941050191*^9}},ExpressionUUID->"8ca4613c-2c72-4944-ae36-\
d1dd0bba45df"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ThreeBody2", "[", "3", "]"}]], "Input",
 CellChangeTimes->{{3.7559193160561175`*^9, 3.755919325375455*^9}, {
  3.756374464999868*^9, 3.7563744651037884`*^9}, {3.7698107100132847`*^9, 
  3.769810710215085*^9}},ExpressionUUID->"a1875c21-1d98-44a8-9dd1-\
8bad2fdb24e3"],

Cell[BoxData[
 Graphics3DBox[{{}, {}, 
   TagBox[
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
     Line3DBox[CompressedData["
1:eJwV2Hc8FV4UAHDCe8bzHg8lCS2lRcNIUUlDEpJVVIpCymiIrEpFS0NSyC6E
QmVE5yQkIiF7r0gqPLwlv/v7J5/P96P37j333HPOteCo+z6nWQICAuLkHyHy
U/2R4pIVv1vg560Ps31ra+Fcu6H0ZNsfKJ24Of2Z3grnpLdq6zfWQt6+oQtX
R/6A+1yjC07qrRClzlkq0FYL769Gd0j++wNB2eab73u0wpzxCyH+/bXg+dSg
LpjxFzLUGh8Xj7XCo7qUN4fYtWD8dstrK42/cESm6q7vZBuUyT6yfz+/Dvbt
NBy28PwLrENTMst5HVAeVF8heaIOlL+2JRf+/QvH3jgqWvt1Q/LJYEo2qw7q
enfvut0/Ci/m0HbuzuoHua6EPN7s76A+GfBbr2ocXhg1FlLPDcHPWfsir8s3
gMvi1dZ9xyagZ1tK6SjvF2haeN/voDUCfXDNlpOfJ6F64rRWrOlfULHOVfal
N8G6DcIflixiw2BxNQYNj8KoZrFaylQT5OWfe/15Cwcyb4hUad4bh5MBFF+7
4WZo+0Y5sM+UC89XVPC0Z09AzaUMpf6aFjjxfG3pijU8WKFgutjYdRIqdLdF
RsW2guBT08zcDh60WczeNevDFKS3P3Es9GuDT4XF4afc+eAy0Xj0S+kUCLLr
5HmBbQAruxLVPfnwNMvvR3jFFPB+3l6qe6UNHD8vpP7x4sN89tGVC+qnoEA4
41B+aBvMcq8rczrPBz/28gjVH1MwcfT0xcKINgisFpRd58+HFfHiZ/tobNj+
2Cev8VUbnPCwXb3nBh9WiXncWWbNhouz9mud62+D5Ynuz7wS+PC1v3529gAb
jmtE6f02a4fH5Rh9tIIP0ZZGBvyfbEil5dru2t8O108KDZ2q5MNkzsePhn/Y
wLieG5Ro3Q6xI36e57/wwTnMqqxmig0Wlv08u0Pt8DKetS6wmg9JgZl59aIc
UOujzrSdbIcUaRkX91o+rH22s+zmcg5cipObJXu9HbqDUvs+N/Oh/J6oRLYb
B87Lmbacfd8OwQnz4x0G+JA/7ldU6sGBfbxv4ZMf2iF0juwf5g8+iNTZZzWe
5cB87sWPPqXt4K4kc+QD8U93Mg9M+nEg/ZXazeAv7XC+g/9cbogPdCOPOKXb
HCg9UbkkvaUdjpmtz48a5oPq3C/2Chkc+CwZFbdjqh0s6s1Wz//Lh22UYxn5
wxwIzxQQL17TAfNXnCn+M8mHAH0Jzo8/HIgcqV9ZodkB8savfuyeIvsanKso
y+LAE+3wsPoNHWCFUWEJxHfuiOhz4nPAVt5/2d+tHRAQtOfYTjYfrh+gO/6h
ceG02J212/Z1QH5TCv84hw/3mOOmNGkudO9e22lv1QFx93/PfUb827dAiaVy
XDgYf23c90AH/M4+n9VN3EUiYcRyPhccBs+fKDzaAdV9UsZ7uXyQ8jExeLyK
C5e3scXtz3TA34BU8WniDV6FYUlruFCzPOjKTe8OWBq5tU2Zx4fXyh1JGZpc
WNoZc6vwYgckN0cobyZ+e+Xqhfl6XPie4uSkGtwBgfKrp7yI74reH/JuKxfc
xS5tPhzSAUaPjUKvEz/dNj/73XYuqLXIwpNbHWC643tIJPHK7CtP8424sOGF
01DT3Q54UVjISibO5wXseWPCBfu2wo9zH3ZA7YLhypfETdKo7zLNSXwSnS3s
H3eA0kJjybfEg0pkh5ItufBWpjAmMaYD/P6U5eYRr3CM/v7Elgu5ixgpv+I7
gLplV0Uu8We5DwJv23OBnfPeW+dZB4TuyduWQzyR+7vf34EL1hErmdfTOkDk
68zCF8TVLsZT3Zy4YPUQ/JoyO0BfkHoilrh1dv2Frae45N6LNV3J7YCGb2Py
/sTldmmXLfPkwpD5s7r2dx2gZZkcfPx/b3xdIXmOCy/ltd7oYgccM80x20O8
nlnAqvHjwrzStVumyzsgK8VbRJJ451hZ5sZbXGi5OCj1rKUDUpJjio+S89Ke
6o6QusuFbG/9xjmdHVC5ZQVTnXjTiMeq3gdcyD8w99Wt3g6YkVubP0XyYZdN
sMOlKC68j5Z4FfirAxjR6mIBxGX+XiyLT+PC00e1ITf/dYDoqeP3DpE8RFMd
IcdMLoyJzLsyW6gTwlbq+0sSL3a71L8omws+irVFSdROUJcMyc0j+az/dG1E
dD7Zb/VPiUqpTphD72UKE6/tXBjiWU7yQSj65eZFnVB1K8Xw9MT/dcPgRUo/
F64/q95bvasT2m903Qsb5cPJWSMsyhAXDmxlBOqbdIKYr/kxGvGSg6MLjv3i
gtO/441Z5p2gctlr5Cq5jwtKFiyUGyefs/GWbMKBTrgwMLLU/Q8f5vkmxh4W
4IHaO0nTVLdOSLOqUFAYIXVM1vTVbQUefGgV32V9rxO+uWxV+kbqg1mFrOBO
Ex6opmS6W7V3gmmKeWZhCx/Olm36OfqCB73nokLvbOmCVbd+HDd7y4dbt+SE
pzN5oHN7aOfFbV2Qzk/gf3/Nh74PW81EsnmgeNcrz3VHF9CPMFytc/jwY90u
H8k8HkR59qH5ni74LadTZvKKDzanIrp5H3lQwNfs32LTBdOHNQ+KppH7KJ0b
b9rKg2MmcZuee3SByT/vlznRfIA/Yes+Ucl94kjZ5CR2wYZ15wObAviwVWhO
1n1rPowf2+HbKNMNvVcP3J2lxYc7llFzam35kJvnX3VlTjf0u5oJBazjg8Wl
qwfodnx46S75c928btAAO+aEBh/YsuGn/I+QejnnysPYhd1w8qbEv+8rSDxL
997VdOHDgSvvLZLXdIOSyru2owv48OF53rSELx+O/ujzcTfrhvkOVbrPJch6
qJejDR6TOvdp7O2ye91w+szbvdVtPNjPEAqeG8UHxZO0DNuH3aD96MCf/GYe
uP3cKjRC9kfbcVcj7HE3OM0oseIaeFBqkwahcXxQr6XwqAndIGTwaqFDDQ/8
66x+P37OB9Gxy4fW5HTDHbctXakkjsfWPBKXecOHS71Lbrs0dMP2nRobD6by
4GnBcK1VFR8E9cpDElV6IErAWUnDkweyBV6CSaQviZ72mVFZ0gN986NkSk7x
4Nq80+MjX/nQvGW/XqJaD9xJu/zNwpX08cEO+QukX00lstTeru2BZc68uOPH
eKB7sGG5UyMfus76hc7e3gOlxXoOtpZknVSNk3FdfDCXaX76ybUHTjv1cjx1
eJC1Jqf4Bsnf0Gsy+coFPdAzsnbmGI8LFOHalpMk33n3Rk0MoQcicu+1n5ri
gt/7FBejMT489N/x9HRJD7SvKDY9Q/LeborZzRkncd6a+qC+ugcEU1oGPYa5
sGO2xog6uX+xn9aVDvT2wMEzL99rtXIhwmVwwW8+H1puNM5dyeiFC9WpAcPk
3uoeNvaLFZkGF+mkET/XXnjbcT5o5AwXBBZNspiUacgePP1k2KMXjGM9zYXd
ufCDatFyibgqiHgd9e6Fzz3zXsq5coER4dtqTp2GRsfkZufgXvC2YoouO8KF
ooHUXQWi0/B9eHpuy9NeiNnbPSG+hwuJoZp5omLTkGiW9OJmci9ImKSNTuzg
gu+ysLP7iP9LPd+6Pb0X7rC9XFpJX1E4a/KxkfgS6zLz+vxeEJj1teShNhfK
S2W3k04G3weLth/83gs7Bd6PflrIhcLZ1s+/ERfyCT5r0dYLcy9cDr9G+mJh
LENzgnhOiE3R/t5ecFCbm7hZntTBE+whGYlpwFRbjcM/e6F48vq8cSYX2u1L
P6wiHmhW1e412guLqht5cZJcqLdYnGdAPGCvckMYuxe0q2UNjES5MDpRWL6P
uKVJj9rbmV7gnNz7a3gWF8ZLNP7YEz9pVDPUT+mDVZGP2CHTHFBhzFvqSLyY
VqmqTO+Dvj6KkwqbA35DUm5OxD+mto06yPUBK+2tevYYB26qxuc7/P85P7Xt
MhX7wHlxqZX+CAfu6u2XsCUeH6DjLby4Dx4a7m8q+cGBAON0O2Pil14f2++4
og/yxG9kb+/hQIHMklQd4qvUXESq1/bB1m93e7GNA3Lsdb9UiD/bsyh6q24f
qJx95KLVyIGSK5+39ZC4tT9gF+8w6gOumvcpqS9kfipSMH1HXMsq0bvJrA82
1Jb+OFvGAVG1R/phxIskFh08a9MH5lUzL+uQA2zBw7lLiUsZveJUnOiD/gjb
RUFvOKCe33hTgZzvxNCj9IlrfWDKbDke/pQDMR2s60Ik3xx0Xbfv+9QHU25H
Z1LcOaAvt+tRCMnbhMaw2Xe/9oFB6e5HWS4c6N46sUmUeMyS3zbNjX2wyTXS
8fUxDlzz4GlNCU1D9T/Z0DuDfTCos/dJijUHttZftnwgOA2Kb9+LXRPvh+IH
D8yMN3PgQyU7EUgfPnWsqa/IrB+mJT5OX5DkwNtgIxaH9Nvlop5pi2z74YLR
9rC7VA7kanK2/d+H1S53vgx36IeizChqoiAH/j288PUG6Z+C/xZUR3r1g3nl
37S8CTaIJPfMESH9UMuK/nLFw34QH+rKetbOhpESe8dZpF8J+z05FdbWD/36
rQ9vp7Ph45qFof+aSN29+Mxh8uwApM7S3xmygw2+J/TW98SSPpY+ae1Q+wOq
pvbx/E9Ogea2fVa8Ch58GvG5mjEwDBFb7q5vtZkAqstqt4wyHvyLT3z9hTsM
Vpnnbx8zm4DFj1y1rYtJveyzymMyfsHH7SKTwzsn4LKL7Oi9fB7M2mCQJavz
CyzOXE2Y1pqAtJdbFZKe8+AU/VA29+YveKE5bq0mNwHXFG9817vMg1V6iRUJ
G0cgcE380qpvLKgIP9t1lryTbi0Kt5Qq+g0bGF3TLSYsUIsv8l66kgdJix4M
lzT8JnNwXm3Vdha07+Z8rlXlwTZa8On0v79hd3Tm3nI9Fhg9qfslo8iDMyNT
GXJL/sADK7Hr31exYJf7RX8DCunvR/bzD9z9AyuoSdYH6CxovbvwxvFmLszM
P9fhr0Peq82NK+2/jcMSoTaL7Itc+Ppdfmbr6lEwlY+xYBwdh6cC3V6K58k9
jl0delFvFAz3YZOS3TgkrpxRDfbggskWxajqPaOQs5Wxe4vVOIj47RI1IfPh
5qJuhw8nR8Hfkh5UsHscgjO405/3ckFp2b2jzWmjcMj198ZH64mr3b73dAHx
R0caKleNQe0HdxFj2ji48N2GOfPI/DNSpRSlPwb5cuOQQh2Hmtvrdaxmc6G5
gKNxxXQMXsrYopLQOHje/5DIlCD1THLP+hjPMWgN+KtqyR0DtYNDxfHk3dH6
43Ae6+0YyaNpn8mhMdhGNX9kUc6B29es3MV2jMOyiLsyR6rHIIkbO9JWzIHf
n8bNzG3GQbqwRsijcgzWOKP7ySIOrHcybs90HYcbPi7LnpaPwfP+RfKPszmw
qR3rU8PGYXfMaXurj2OwJE52WD+GAwIqtp8jWsZhbv9O7c0FY9BU1XuH84gD
mr1nYq6MjMPgekaEUd4YxGnvS3p3n9Q5SsLjKwIseCsaH36WrHe87fpO6xAO
7FaZE/1OlQXTN+wDVuWMgbt1px3rDAdWypuYCJ5lQXmsVfOazDEQ33f44thp
DrzzNJj0u86Ch6eWzNuVMQY3b6Ixl9QDH7Orr0WjWHC96HRDUPoYGB7dKktz
4sCpOqH5SZksOFx5S7ftxRj84t5QWHaEA0e1p4r3FrNgxlri7AHiwElI3HuQ
A1zZKW3RBhaolkal89LGQGNJx3igFQdOn6bTaoZYEP+ZJoHEDxvX7S00J3Uu
sKYqeZoFbt4GOc+J15ebTAmZcABDTouHSk+A1PHVZdnEK8W2qFvvIu/czioT
nyUTUCxf7tBNXF/5rfbbbRzw13y68PyGCRDIF4lfR9az8cJnswWkPs3t8WAG
mkxAtFpTVCrx2KsP8yN1OeDq9zX5gcMEKNsvO7GN7LeifsUrRS0OJEZaOOac
mwBKXL2sIInPkbkhnhlrOCC0AOrbQyfAwjwzp4f4gGy1weQyDkTzXvaYZU9A
13TfX+lXY8AZiFW1WEzqYoeKyt7yCdiqKWrnnzUGZwNdl6MyB7yyWPGWHRPQ
e1dcTYacl0aU6fPK2RzQet7NCRKfBPOcK11F5HwPiP5IeCnCgUWt2XHaxyah
JNsjmY5kPdv2Qzipl6N/L7045zMJhj/c538pHoO5zzxZN6fZkJIVRs0PmyTv
MA3/nNIx6FOOD8gidXR+5tfNJoWT8EdAw22G5K2sx5GzHQNsEEyuz30iNwV6
Ce+Cr7eMQZBUUJltLxtSo6XMxlZMwbRLWm1YB7lnS+cnD3ayQfPwZrfdBlOQ
WyAXjT1joF1vHbm1mQ1jCrd6OKen4OQe1osnw2MwnZla0/uFDYwV4pQd5VNg
qenspDYzBo+pYPsvlw0XK74+m+fLhrCSbT9OrRqHFpPdk+/fsGGThY6l7l02
9Cy9E9u6bhzsuSVu4TlsGCoL3mD+jA1zpe82uemOww72hwn/l2ww8GR1O9WS
un+93oi9k9zLReM+xilk/ZJek0rLOWA2VmqW4jgOzkXKE9nk/+fKnbw2TvLi
1ZrGLUvdxuFwTrquejIbZA0caEWWHGiymh1WdmYcZimunnFKYMPGWu1bqy5x
4PPXmiTHK+Ng8S93TmUMG1ZUTg37kn6fIjG8RiZpHBLaQp40RrNhjUNc6sgv
DniELX4Ymk7qlZiHDzuKDXC/o2QfmW9CoreIz38zDnLqOtPnn7Dh+LxA9thK
LpzlDQY9LhuH+irTC/WP2SDlZBC6yoALV0JnZ176Og6Tq2bxtxNfe8DE2daa
C7OibxhebRqH34dZ7x0j2fCiMEwx+BJ5l7NYlPaf48CNav0iTfzmAUv/yxFc
uGQWc0SDNQ4hvA9BtY/YIDDgus3zBamXN8UDY6bHYY01C54Rh+cmumbIhUje
cu4iKguSTGe53yEu55ujrvydC3+6vVw/SrFA2KHcM5T4wt5L4+3kPSqxZMj5
ogILrsT5vHhE3Nrmo/Wtf1zYFb0mzHgxC/o1U//lEXfwitZYLsODhR8ivNet
ZoF8jYXJCHGLhVv35y7lgbK1TNFaHdKPFhxeoU7Wn7NtSr9JlwdySdd40VtZ
oHku0eES8eupUdY/yXuUus7pj4IxC/iW3e5WJD79A2VPu8/woKRmz1uzQywY
XW2vgST+oYsDU+YCD7KNxhSjrrLgm9bsv5fIeRUcZ8/78I0HLob1h56EsaBm
tt1aC3K+FfvcOTZ9PLAem9ef9pgFguuVvy6KZYOoEiPVVowPX/uyHvzLYEGZ
hfN+30Q2OP4QVozZR95tp6TOOTeyQCvkl+ybJDac2np5TpkjHzy+qXwb6maB
qKLbuX8k3yYFlop2nueDnsUCdd9fLOCZrk8sJHmrUVKU0PWED6/OR3WUCU7A
6/UZob2ZbFg6vP3Hgh4+BGbK5omumoBPqre2FhexIa/EsCny1DQcbm0+Mnl1
AkbeegU0A8lD5tHg9wFkvm6mORjdmwDpyIth0x/Y8JDL/FsXNg3nTS29n0dP
gO2ihUUny9gQtW0NszprGoby1KnBORMguuCOdvtXNtSHv56YYZF3D/VrWV73
BHy7YBjP72PDvWrD24cv/IMKk5rm3s2TYHG07ua5ORwokz+zce+ZGQhR+ZPw
T3AKlKrOVHYrcEC46ODe1ZdnYEpok7Y8fQo8zzJ2WCtx4Nnp330zd2fgvuBc
prbCFGQ3x0fYL+HAgCPrm3fmDIivYykEryX1RuS4zfd1HMjqkFpSODgDLfqB
0jbHpuDPln33D+8j9/PT85PmqwTwAUd4qKp0ChQ+hrBtH3KgQXBPruoTAbyw
7OH8jbfZ0PF3mbKJOhfOtygGL3UQxLnuLvn/zxnzvitu8CD5kfIkfW3s51nY
yzg49OH2NBw01hwvcpkGs7/44cd3IZSxfHzE10IA/b9afbI7OANjZsYsiw/C
qNiire70WxDPSa4UGc4QwI238i3F/UVQ1XhJ3MVTQrgx4UTFtSRBdPXYdJZD
o2CP34NLf1EYcx3jL+1/Owsn/MfHv96ioPqcfNpBJQqKPw336ykQwk+JTYoH
Ryh4+WVY7RsLKh6+8cXownthnHlW67d4AxX/PQlhVZ4RxW0L7jkmt4mg0JOG
LRsvULF7k+3T1igxtJjz2pvyi4JCtwV/HE6gottyf2OIE0drO4ZM6l8KKsaf
NWURPyWs2yGWLI56B+NE9kxQUCewI+J6IhWtwktsLFLFsW/pwtH7/yjoFLD6
Y1oSFZ87dAv3ZonjcjvWwGJpKnKDSx/2PqOi11pPrYlicSzWrfCx1aJiyKTE
VuUXVDR3+T7Q1yeOdoKWrymXqCh8+cllyKbi3QOcmL9LJTC+90TU66tU9Oza
KKqRQ8Xy5Q/+zlkpgYOLQ7qO3qCi+0MPj1ji6xiNqvoaEvjx8K+r+ICKK+50
Dvq+Jr7/pd51HQm8xDQwDCLraKstvrj4LRVztN8xaEYSaLL4S7n0Fyo22ytq
G+RTUU24YV6XiwQ+0ZdrDZgjioFCimYp76kYvz3w2Ks0CQw9aNY5OE8UhUyi
1/wlPr3Lu9w9UwJpe3brWaiI4uNWo3naQEXn4ij11dkSaH7tElVNTRQ93i2n
FhOXWB8mlJIvgXqhO9uadEXxz8OWLV+QnN+DmXdh5RLodkjmo9EhUZSnz92Q
XUzFX6lfN6oPkP1+vxTglSyKeVBGKyml4uJOl/x0FRre+M7YNpgqiltWNgz9
Ip61VGHEeDEN7z264nooUxSru+WqZcuouHKwSuHnUhrGWTj2GueKor9d/wsH
4qvnih5bpE7D/LwF11Z8FsVXST0Ff4jztjCfhurRcGT1kpbpX6JYszxKrv0T
FfecFDq/+AANxy6+YPmMiqLWLTH7SeIhjNhFOfY0fPrbx3tyQhTtP7ik0cup
WHeQV7rFgYZrn9nl/v0nijd7Y6w2EXf+ePWHjTMNDWttl/+UEsNxHYmxm8Tn
3HnywO88Def76d1zkRNDOWmD4zHEsyq5bbN8aRhusf/Y0Fwx1PZ/3JlB/LPA
QvkQfxruV43Z/XOhGKZaa3dXEg+/rnk0LJiGTguNNUbXk3zvH1HkE3es26V7
7z4No5p3WNtvEMPuvctCRT5TUWS/UPD0QxoeWLJl8LOeGHossBaiE89pGypz
fkzDnOI0o6QdYliUILdAkfilNwlam+JoqGfcrsA0FsPJdqeSBcRzbZ8dTUqk
4URjmHWQqRiee7LinCpxjzSdaxLPabgiarHAHwsxbG3avm458ebSP3GeaTS8
c/Kf7CEbMRye/eDfSuJSxUeyGzJoKF0aFFFlJ4abTEcbVhM3eqFcoJtFw2UV
jKt6DmK4kqNXqE58bSDkxrym4UYjqe4MJzFkSVhl/u9t1Nq0mVwaZhT+SFNy
FcM0vlzG/58j1//j/pF3NKzaxe8JOy2GEwW2ef9/r0DyXXd8T0NW4etQwTNk
v6/4X9WIr/xwYItyMQ0/hl+IPeMthgMfmseXEBeMqhP2L6WhJefl4oGLYiiz
p3LR/3HQuHC9sLmchheKP861DRLDo6ovDs8jPj9Q8ITmFxr2es8P/BIshmrx
+57LEjfPqRS6+5WGNnp7ol/fFkPl2QdthYnzRryYBg00vHvfYeWNWDE8mDqw
rYmcY2ZRwfnHvTT03Ov6UiBJDMN7oporiC9Z7/bs1wDJqytKz7xTxDBiZY1P
IfGpIw9K9H/S8HaF0d/jWWJoEEptjibes1G/ovMvWc9BeWHjj2RfztWS+4j/
sIj5JfuPnKN1n0bpJzH8OBQ99n/ezomIvnRYUBLfSv2t3/xFDI2fB3apEh+3
GRBIFZbEq5tjg7W+i2HykuKGKXIvFLYuL9SRkMT0ijNhaj/EsKmgY+kd4oFn
W+WM5SWRdmDXe1UJcZz3DdRvkXs3oHqpXnetJDbZZVIuWYijiQbD4stH8jl7
pRYZOEnirFTdy6dsxPGDY673A+Kt4sGKGc5kPfvtYw7Yi2OsyjVPW+JvNZfn
znaTxGBPkzdaJ8TxdNz23m5ST1Yr6X7p95JEhumFoElfcXwX0vem7wMVJ1JF
D5wJksRiS6dVDxPEsfVQ3ucsUq/4q7VVjKMkMeNLqff+MXHUnsyXOlFARXi0
/mH/V0k8VdrrTQuXwD+SnFeq6aQ+b1cN91tPRyVHP6OaSAm8MV0qnkrqfEmw
jvc+bTpqtn1sCo+RwJK+wF3LiS80KGhV1aWjbp/YepXnpO7miJ1WSyP3dyRx
YeVmOl6Udp3aXCCBdSLXLRVSqGifs8FX0JiOAa35V5O6JPDBATfNMtKP2u4k
1S5yoON6z+uZoqtp+Ms9f8G2J1Rcdih52dpbdFwT67fdp5LUg6vUyLwrVJS/
Um/EaSMOsnadNTRcoLY0tfMyFfeOXnh9v5OOjjT5xB0k7+qCp4xFiGsNfsxQ
66GjMi+9XL6bhocXlBjuCSLx6VTbaPaDjt+FjJ5WTpLfNzOaLPej4v2Gse2B
o3TsfM9vcFsoiav0aTy/c1SsimihO4gw8NNT99gUX0msaNlhWOVExXMD0U8Y
KxioslOpz0adjlMgfIRuQPJ/wupnnhsDFcvXq/BJXNNX+vp3bKFicu/P80Gn
GShfk1IfR+InEp2+PWMzyX95VbqhB/l8qmPK7+10vO5l0rZDj4piEYe14QwD
u0JowtF2dBy/EGPmqkNF114n12BfBqJNxBO9G3TM8T0pdnY1FdUnfZK2Xmeg
KEfsdOQAHd8McdWT51IxtfbGzk0xDJw9cnSh6y862ssdVzeVp+Lp6jXzPJ8y
MCY5Y73eGB2X5RZrsWdTMWPVQFRcLAMV/sk7/5im44Ld3R47Zak46azp9See
gX399q+N5Rh4JV9ucSudijpaL+nGzxjI9ZJIMjNkoP1s54g2IVJnGkRe/85g
YFa5S7jWbgY6cmuyfWaRONew9pVnMrBAOTxhvhkDXwbytWcLUlE5csXXqJcM
ZOWeEvxzkIFhJi1PTMicslPJYblGFgMbJ6IUn5J4vDYUiH/LpuBQ8yM27TUD
1TYejl2ayMCPAxsNfMh8pV1ud/5mHgMNQiYa3qQwcHNllpQamZtemq87OEH8
Ps82zpB8/w6v6MamnxTcfUJB0zafgV5Klp+PkZ++FCdPnUEKBgSbxtELGGik
XCvPes/A0L8DloMDFBzYRFE6Qvxz1WBzcAkDhcRVrSL7KZiwON7lBfE8Udc7
z7+S9VSXVLN7KHiK/sZQ/R0DexRkPTZ8Z6DyG5ZtajcFs00TP5wgHu7RElvZ
wkAtF3/VA10U9DJ0/vGYeLW7QMnffgZ6cHLTCtspuF1njfgwceXcf0lXhhk4
ftP0/Ok2CvKcKZNihQx8n2adMXuUgXGxYi9UWinYXW/tvJD4YVZjbeokAyFq
pUVdMwV9T4jbrieuKjdHQo/PQKk9Kj7XmiiIx3RwM/EEp6IlgwJSSOW7LNVt
pOD615oRhsSfb48qyRKSQovwdOff3ym43P1enQHxSUi2u0iRQqCk7Eysp+Bc
L3lPXeLLbA0HDcWk8PO4zlebOgoGWzWcWEHcp73UgU6TwmBXa3FGLQVdjsln
yRHvfnvkYyNdCvtK5YTLaiioIu6xg0P2G2O3c6mrrBS+eLb2iFY1Ba8Lieul
E7fYenP+ujlS2JC8ovnPFwq+tm++f5E4rmvp5c2VQo3uCb20Sgrezmqbb0h8
8aWHn24pS6GyMpOz4DMF/90cByTntbLup/aL5VKo+CfgolIJBYuftRSdIHmw
ccttnucqKbSWuhrZVUzyTT/JUIC4tvPagzoaUihfMfUv8QMFh4MNe+6RvCra
sKruo6YUPpVJb1wNFFzATLCNy2VguqZ7b/0WKXzOchOxKqCgda+HjOsbst9l
T0yaraTw97eBF6xXFKwMlm5+RfKfVjrnaoStFDoWLRqueUnB2RyhxBaSr/cL
Egb22Umht9VK9ZeZFITiyrvT5H7VV9WJf3aQwqs+0mOe6RTkFnweWp3OQOOf
WpJpblIoMn/5A+kUsv7aFtUt5D5EJtoU61yWwuS577cWx1JQSdeqcSG57+rt
woNKV6Xwe+jVQ5lPKfh58Vq/MlI3DP98uS0UIoXjMxsexcRQkK2z6OnRaHK+
1d91ym9LofAt/WtXoyg4ESlwL/gxyTcVldX6j6VQPf6Tm98jCi5W+Vrr8YCB
AUv95ze8lEK7V7IfJO9SMCghXZVzlYEOfwpz47KlsDxz4LN6GAXPX35LXRlM
8nWjzhGXN1KY4H7JzfIOBfk3q87YXGbgLkZoKatACmUEtt97Qd5ZwzWpG58G
MPBIrorZeCmJ2+ns4iuhFFw5ElzQeZ6Bt0Z/B91slcKf641q+69Q0FD71Yk9
xxlYsiTk8/oOks+29K8GxD/I7b+4wJGBiTOzOlq7yH6/RV5OvEzBdA2zo6MO
DNw29ufIogEp9LpRLupxiYKfOj2mL9kzcOfLcw8f/ZXCH/PsD2oGUvCs77dU
5/0kDqt9r8mISOMjsReepy9ScP/Y0Sv2WxkYPSVZGUmVxhfmpnEixC+k1JkN
6TPwTpzd53ni0qhgctU0zpeCCv6v1D03kfq4QoelwJBGufuX53b5kP169Lue
02bg1K5v0v/kpdFsxZK3IRcoaNbtU2G+ioEChkd326yUxh/F5gcunKcgvURh
wlmegZdjhdXurZbGL9HsiZ3E6y5Q7IdJHR/5/mVeuYY01tFlDRT+//0N/ptO
yjBwtctOQw1Nabzf6Vxbdo6CVy7Nu3uMTu6FvO23IT1pTO29pLyZ+CHll6gt
TOqpyKpLMlukcUmxwc1FxD2PCc9/LkjioO5vsdFAGtnvw86IE3/heW2n7Azp
1y6JJ67ukEajNpHYzrPkXPodVw9y6HgmMirj+S5p7Il/W19FfLRpYHrvFB3z
xS2UyndL46wSYbf3xL12dn/IYdHxEOdZiJCpNO59bpj0jPgyx93G3n/oKNuT
dk3JXBr72Xe1nxJ/Z6+3sIH0Pw51U562hTR2z14jHUk8aHm21LqfZM6piFU2
tZRGGevdy8PP/n+vh5XukDkBaxaAo7U0tszMXLxP/NM87v4ffXSMTZd5fMFW
Gg98PjPzvyerFhXok3ljTPvLyxsHpfFke1nGQ+JyWT3W4WQ+6TF6LhJlL417
NigEPSGesnBw3SCZZ5ztRWJSD0vjroVh7vH/77dRwUq3hY7ZYsYX3jpIY9no
znNpxP0eR5beaKTjw4Cuxx+OSaNNs/ONN8Rxjllocz0dw3kv8mtPSGNgWMCn
b8RvPNy8zOsrmcfc173qcpfG4PreqgUk/uuvcs/dLSFzV4HxrC5PadQJfRem
SzxZ8aRu/Qc6SuWZZ7afIfFMvL3ckvjXobXBs4HMJUxppXpvaVw7s6UmjHiY
8JKiiHyyr85v8RmB0nhZb/aC//PHSE3f/FomHY3j9jjKhUnjZiV/eX9vCm4M
bxlcEknHtflmFeXp0viwIkTQjOR/x/fK9gBXOm5+kMq9kymNwtvmzDwkfk3Y
KiD1BB0fa+V3WLySRm27tlntxAtGM2fXOdJxP2tDRXMOORfJeOppPwpuUK5c
t+gwHb1/PjzRUCCN+VVUryh/Ct6c6NXLtaBjRKvVufBych8jxw2Vg8i+wtdu
ebmJjgfsgr9p9EqjX7yZZcpVCm7qtEnvkqRjmAbf01COiZs8Ncc+3CP5YKCz
dEmGJJ5LSWzpn83ES+e1dqy8T8HY/nV2n1MlcUi5Ys01eSZ2ZGv4RhDfOUJf
4vaMzOEq468+zmOij6LUadcHFDRInXciI1YSGxbpzlm7kInvFjK5jIcU/ELr
PqB0XxKVnKofta9m4rngxaYmkSSeQoeNc89LYlCWgKz3TiZeHbELPk3qc6PI
kFqGviTGex+8xd7FRE7Nnu2VxI1usf3nb5TE8nPr5Xx2M1Hvic6upaTOP9sb
wrqpLYm77p0/6G3CxPra6Zk24gETX7WPaUiihU9/tbMFEwVeGqXpx1NQZHPN
E+4CSXwvKDWkfJiJd5QHzjQkUvD+jqSycvJuknao/tpzjommNkastaS/6DRa
Xwfyfrx4a9lrdW8mKv6S5LoQ32dV77mSvDdp6x82XLzAxO2ix0tjib84rr/q
0Qcahm0PaJC+yETxhquPqakUFLb9Put4AQ2P36/4tD6IfO9168xPxHfV9T8e
fEHDeVFfwqxuMHHdBg0lkRcUXHFG66vfHRrOT13k/OgmE2dPDy1WJc7FM/tK
btBw7Z3AoMZbTAymqsVuJ35QiGUqdp2GkS7mnpZhTPTUEmwKJH44ajj+ZiAN
FcfH9u0KZ+JyB9fCLuLuoYunPDxoqGcwf8WVh0z0pvxDFvGayIMJiW40bBmU
2FYUwcTJ5gUSVNJ/GSoOEXXONCwqqV+j/piJYzuHrVWJ/9uer7/CgYZx7udE
Tzxhou56k73riMcPVvTvs6ehgtkJpadRTPwhn+upT1zt0LJ33rY0nLstiSr+
lIlvvu1VNSXO/+bwPc+chnTBxy36sSSvcuLT9hM/UGpJ+25CQyG9tb+84pgY
3rTdwIb49soSy99GNFxyc+OmZ/FMTCh5MmBLvC/uSprwDhr25PtVNCWQON/5
efd/n6NgJiRvQMPvn/IjxJOYqLrXRdea+LH0Gptl+jR825wdtzGZia9C17ft
Iz7AeZCoqUvDHRqLB08+Y6J/4j73PcR320m1bdai4ValMreo52SdO7N/bSP+
2j2Ru2MtDY3+7VldkcLEsiY1kw3Ec2PuTe0m70CJZS4r2akkH9rPh64kXpUs
Umm8nIaqe+jt5ulM7JqhXKARP5rw7Pu2hTTUcmsX4b9iolPdfpssci7K8QPh
NCYNE5fz4xdnM1HLyPdjOPFbUzUOk5I05GlHe+/JIetcHPblHHGPi3nFbWI0
tBO/UvX4Dcmfv4ceaRC/Lyg2P1aQhllvW+VWFDCxSlNfJSSNxD/mxHrOXwnM
CN4WufQjE0fCUTKX5LObk91lbrUEjq7mXHYsYSK8Ni88QfzlqxDTZRUSGOOv
6hpXykSpftFcWeJZNm1M81IJ/BzgryZXzsRkVuL+Y88p+P7+Qb0H7ySw+fJC
47EvJD8LRHy+JVPw+bmQg03kvT0WpDPq00DiJr87uIfc0/XFP69ZBf7/99Xt
4s8amXhcvEjdjLiJ77/3K3wlkOp9RuxbExNlq8Jo+XEU8t4Qq+aeJeu5TslZ
1MrE3OSbwn6kDpg47FW85iqBIUYF/u86mdjk03e+JJqCTiPODFNLCTwRdVYu
Z5CJ1weV04wiKCj76KzdQzUJnKXr9+TLEBM/tnxTOUzqWOMNJ9npRRKoMv9X
d99PJrYFGSw7HU5B29BVcvZKJG60p+nSI0xc0dnkdIHUyQoPuwsiMhL49HpC
28FRJhrO+fF5A5n3qt5wjVk8cRStz3r1ksPEBedZJSbBFHw4ybm24os4lgQv
rM/hkjpgYuP/k8xp7MjhbmqZOFIVGoLe8pj4PvK1WgCZ0+5mndRtAXEs8r1y
LHeaiZHN7wJDAygouith+ZEccYzQzP/4TFAGY5rl7qqROepv14Ok4cfiKFw4
8fzpLBk0CpFx9CZ9TcPn2D2vB+J4fUzzV7iQDP6Il1pbQPqswA2V7pFb4ngk
K93PT0QGtRODbs73pKDWK8N3GCiOt7LMC09RZFBl0O28njtxndDPc3zE8YlH
rYE9VQavjHfNNT9F6gxvq8FRL3HkVVqIGYvKYMBrJ0WbkxSUcq/rjj0pjrtX
vxPVFpPB1YdOquxzIfmQpnW0xlEc/wOo1RTf
      "]]},
    Annotation[#, "Charting`Private`Tag$2611#1"]& ], 
   TagBox[
    {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[2], 
     Line3DBox[CompressedData["
1:eJwV13k4Vc8bAHDXdrmWe21f+1b2PaRCHSElkQpRUhIRkcoSki27UlIKZd+V
fecdO8muhGTLlhRClOV3fn+d5/k888zMmZn3nXdEr7qctaWmoqJqIlBR0eBf
GZ2izuTvo3BSueq0BVs38LCMDqOv9ZgCw8Z5qslRCBwfrnpu2A2n9TqH7rfW
Yz7MSuHnhkah6hmbR0dYNzh28T5UKajHRMxsvg62jkLD2twxFkIPMAcX84X5
12OfpmcszNNGofVVebDEvR4ojQqmHdtbj4m2j8kfujgKBe8uDnra90LzhW9f
da8jLDjK9p8P+gLioXavzXT6ocG5cHKqrxYbkjJWZXQYgaMO70KLZz9B8aaK
TmldOXbd8U5T1+QgHLhcViBr9xUiG8X0JZrTMPo4m1i97n7otJOjGrwwCbXT
Cl120l5gvzzeG8HbBdFaDyYUt79B6pSm5LBqFsz2uhVP/+gEWP6iZEmchjOn
0mZ2grPAlch2by/qhK3oh+4+bNNwvqFJr+NzFmiSlgZP2nXCx662+DjxaeAo
frl53jsbJjaHWE4WfoATPbT6hw2n4VhRqIdcTQ4w1LktcWp3QCC3Uorkq2kI
cZoX5pPLB8WnLkwnTreByxc7zzXpGZAROjXdP1YAWV1PHQ4Jt0HCjROrXsoz
kPyFli2NuhDUJ1eqKb9aQfU43dSy+gyYy6fna4gXwt5bdCmuj1qB2+87FBvM
wMBSwAtwKISsvudmux0tEPggdTfIaQYocTN5rEuFwNYxmWSj3Qx3Mk5e08+d
AZTT1um0XATpuTdDMMEGiG9NLy8QmIVhAyoNpaYSyJ3Ts3m+WA854059rXtm
QfPMhLrJaAn4/1HwGa6thyS9ybhuqVl4L+/Dr7FeAvOx9xlkrerhqdbj3gLV
WaA212MxliwFrwe9ciuJCGr2Qmi5wSy8lgp+FBlcCk2tDM/8VOsgRlzfrsF9
FlK9+87vHCyDvf6+kZGsFRC0ZP9TBs0CI4H36D7Hcihz9WA9nlsOUcUc4rJN
szDxsarkn3c5TIv8DZ4/Xg7PX2vy8LbNws29gkfvR5ZDearM4zm/MnhTgnXX
ds+CeUuVZFpeOegFZ3z7ulwCc8OBlZJf8XHzdtvc58vhx45kpkpPIcxdmiRc
/zMLDB47kV9MKuAwqd+txLEQxMGJ+sDfWSj3rBP7caUCbj6zFpQkFkIzjeme
31uzsPpx7meeUwW4Is62b4cLYFhax0yReg5MBZ9laAVWwJbJubJc03wICRhI
K2GaA49fQg8z8iqAtXTJ1o0+EyhZDyxH+ObgupYdjcBSBVT7LPR7y2aAw9as
nZ/AHMR9S9ZJ/1MB3icasn2N00E9PESAWWgOTvyu0O3YqYCijtK4gFepoGno
tvNJZA7Yzzl2LjBVwkmWKMNQSIEHHKrTXHvm4N3n957TbJWwL6Q/OeZbMjBR
k3+o750D89fJcl7clfA7saC+SSEJVso7utTE56CX9/f2bdFKOIXqxr9mvgZL
A2pbFok5mGzLO/ZJvBJCZZhI51YSAKq2H7fj/rHy8vc+6UqAfX2UBc14mIiZ
kXOUnAOijm2gvXwlVCze5s0LeQnh0XM8K7hfKWTNfq5UCUcadS7G972APdyq
+6yk5oAvIH/VUqUSrp8uE6kTfA5nqnfPvsP9UUI8VfX+SqA18W7ldXgG8XVh
F6dx34jQsS84UAnUaRmouOQpUD3hlaKSnoNjlVJtmocqQTGuO/oJ1RO4Tk/9
fBdvP/dipfayeiWM1YQkub58BGTHtIAp3OPu+8zxaFTCNPM7MyvlCCCvuHTk
4u5f/2n2Ou5fHtI3r3aEwL+SKUNz3AUnjS+dwn2mfOWZll0QJHs8mZ3D/+to
YvBCM96/n7ZbnCHBH9odRdwv4S7PcFNtAJ9P7c38Z6fVvWFx9fRgKb5u8ZmX
p9wPVoJrdkZC2Z278LVnc24ZX/+dHzIv89UqoUj5YUvvJUfY2M8exob7xQYy
ladqJdh3Jlpuv7sIERY5sZxic0Bt0Vf/cR8+n0Xty8TTF7CFx9jNJtE5oAr7
QntSthJkblfKsNf4YRwiuk6t/HPwWX0on5m3Elrq6yzucwVhSgoDzTu8c6Dw
aIHOgaMSEPl0VSSeItj3vPXn4ZkDyrkdbTOWSjC2j/x3mfcRdvXyo9crHHN4
3DGZTO5WQNnlZOm972KxI+OFi4dJcxBCezy+cqwCKgNky/7ZJGNlYg2Ia3kW
3CXP6SuHV4AN/5sqWZUU7PGJo0+uLc5ChGJpvN/9Cnh+zy2vlZCKKQgbfomZ
n4Xec9vulrcqQPHdvlDlxDTsXBTciZmYhXv8xJM1/4/Tz1LbFz9kYhkfk6o5
embhTqzpU16eChCWULbgYXiL/ZDX+EidOQtqiiU3j4SVw36HIcPrbW+xa4Ec
x+2TZ+G55lRVlVs5/N3euzUR8g6byMuayo+fhdk8VYU263LoKc6nFwsowLp/
yJsMPZ4Ft58qQ88PlkPIhTf90puFmErqlQPv8DyWRbeoTz9RBuuPO3Xjuksw
y3Hswskjs3D8IL/+WcEySMZKvhgxV2E3HCp8qEpnQPn0k6b4YyVA86HO3eFC
FXZOVc7TFM/PETblku/ESoDxU3pYW2YVJmYT2xqWPAOpaW+IVjR4vl1mUNHX
qsZ4ja2DoqNmYD3bqTIaisHX1JuOwb4Ge7NWncR9bQaKt5gvWaoUw1oS70Ou
6DpMgE7vMi/TDLAX6A4qMRaB9txxgSLuekzV59H446PToP4PuJdm34L9z5wq
UKjH+D0PnRxXnYaVrJkk+udvQZJ96Z7ZsXrsxdI4H7fUNDh6+6kl67yF0cj2
0/yu9Rinr3jIQdZp2F/fGngjMR9eGS34zTTUYx5Z45+Nhr6B9QmV3WCDPGCh
3ODPM2rADv76i37e+Aa1U9H5LTHZ4LlTrz94qQHzZepiqbT8BuZKotl8Gtlg
ZegT4uPUgNm7PfZ3MvoGxNErN7kms8BDiNC7L7QB+506m/t4H95+lwYxKGYB
dctuuVJlA8at+Wf4w/oUqMs+SZZuzoDju823BqgaMVLY6Vfn7k9BXc+pYK9v
qXDvY9BrbSLudjwc729OQdsczz+rkFSI+KWzI8TSiFmvCGjLW00B6XZGB5tM
Kkhxfp8W5m7ExGXt6qqOTEGP0VLfD+cUGHn98KgOfyOmzjwTPq0wBaqLRgf5
2FLA9Hqqe59QI3Z3hJV5R2gKNoqMzUSKk+GlRpSuslgj5i3+RWlzZxJGdy3l
6teT4ATrSj9BohFzIJPMv/ychNK5YWHruCSY9RGU0ZBsxEYq5tTffp0E9w93
tL8dSgKZrdDOUdz3irkIuHRNwjVdZP+q7A2cvKmqP4+7QgpRS7huEpjcBOQP
b76GlY/5cpdwP/E5Yr4ufxIOqP/mLNN4DeVNPMyH8HFTK49cMkqchNUTEzYk
30Rw8lT288HnuW7QMtYZOQl6J0svYSgB5u1NJST34K4iU3bYZxLaOc/oXaBO
AO0e36SDwo1YTXin+GvHSfhPeL/1Fd14SLxoEluAr885evu7v/A6zWVkd8ks
+BXc/PgvqY+9EatTnG+xPTQJsxEcd2RIL+G2vafY4GYDFsJ9/V/W2gS0GuUX
bbM9h2T56AOcKw2YVXoxX9y3CUjt6pflM4mF8nDd1NL5BqzM6pKxV/8ELH4h
zRg/fwa2hW8/iA3i54fNUIi3cALEEjJbRPlj4JDqb7uCnAbsjtmAZJvjBFh9
0uobl4gGutt7l38nNGC//Ooav5pPwK5kPs96ySPwnUo9++BRAzb+hW5s7tgE
3BH4rtUuEAWdcWuuN10asO6Zb7RDwhOg6Tn2yPdnGKQzfbfMlGrAsjVN9qr0
j4MgXcyPoPhAmIqeb8/0rMf23LD/KnRwHGiDg3P7XznB35sSdc6igIX5KlpF
/h2FVQ/MTe+tH3Z+zGV/yuc6TIrfu2q9bxTUdrJ3HQQCMOWTTWGej+qwBy0E
dqvcURiRy8LCQwOxKoujDezrtZiD1C85CctRcMnjbki4EIxhPo0/RUtrsOB3
g9z5tV+A2qaDwDUdgVWr25nN/K7EwqNklnj8R8BRusaVXS8GS5zzMf7vQTH2
fl9vjxzLEKiEM63f3UjAkrI8dwW4irHj3vpUE3Of4bBU2BlX30SsACv6IpxT
hL3dSt2b3PQZVNZLe+RpXmO6OY6KIr2FmHGk0Ws9n88wrmE/NMbwBjvhSLOw
n6MAi/hWFKT4YxCY5x7EegckYVN+Di+F+rKwWaMfU7Vdn6Df73iu/uUULLh6
LOLlyyeY8WG1ssKkAUjJfm5780U6ZpzkuRbz5xH2ptf90B3fAbicQS3A0ZyO
LRQvdtmUhmME7mh2fcsB8OesPUi/ko6dSS6s9BcMwLZKvwYp8wzA7+2exH79
DGwpqXq+UFQVK58DW8KTfth7rf0D7XIGFhj/h5oKPYGaa2/zioP7QOimvWO8
YBamQv9XjIk2D8zjS4hWgT3wbbfkjPSvbExbaEXVVSMf3qxVGT691gMP6tad
e+hyME/+X4/Z7r4FJ1Ez0a/HeuBnoUL4e/4czGd31N/7bgHQxn+prmHogX3E
d8crjuVgQbdKLEOWiiDSXPCkonA3PCzzVfB9koOFSj12oXpSDPyfbwZzTnWB
e028d30K3p5UWsKsXALLtpJz0pldcHZYg8uiOAcL6B3bHXIrhWvzt8OnFbvA
wFV/82EfPq7WeRkJ2grYpC1nT9XpBP94qztfGHKxsZzNs9zZFXDsVsNJZsZO
+DTsTN/GmYv9dXqp8tSoEjQj9jtkdH2AA/HvMxlFcjHrYzpBIvFVsCvNnHHz
wgfgqpjjiFbNxdi11lIfqNfCgV156pN3O+BC8KePBaa52JZHJryeqgXXq6bn
NTU6YLu4nNPEMhfTjM56diSqDraK33Bcoe6AO29UAk5fxccN30PZmgBwV6hd
0njyHn4e5WMzdsrFNk4KtUboIaiI2ZZYNX8Pca9utZveysUert2uOp+AwCJE
59eoyHu41iD5teROLmayeUgk60Q9ODXkndcrbAcjGyczP89c7HblwWDZN/Vg
Yl5D33yvHaYUL1gs3svFApeeExfW6iFGpMjWTbsdvKLM/5R45WL2tf4iM6ca
YGOaz+s8UzskUnsHDOLeqSpgJJDWAL+2m044DrSBHKnO0BT3xCFf1qh/DXCC
tuljQWIbiB3bzVPA+x+pLRs/cK4RZN3uikldbwNztfVVG49cTDi1SVcgtxES
9R4c6FVqA9NdOe+1u7nYf/wJ1YdomoAuYJSS97cV9AQ3Y6dcczFC1p7Wxxeb
oGx0pLCiqRUGxe8mKDjnYmqjCt8FS5rglpkQ/x/8vSgYdHfmkwM+7vfJ4HHb
ZghbbD3GKNYKVOMzmVqXc7G8OxawjL8fnwYLDwQYt8CfT1xVAdq5mKEhm/g/
8VZwHTF+JijQAhOlbIX1h3Ix56jY4YN+reBFG8f0fbYZCsV+119RysUUo99c
Pb2/DTjnB5l4/JqBUOCfifjx8zD5xPxLcjsAd3Bea1ETwI3AQbaFHGzIrc+M
M+gDZAR1xzmLNkL13PygoVMOxsATTeCb/wBeDNPDKwsNoDqSMCVsnoOZ2GkK
mBp1gnX3Q5rCsgYg1mp91NTJwdbly2Id8Pc+Qep2+zC+P4bl8rYW3DnYm5rS
kO3CbiiZcjw76V0P/8GOqGx5NlaXRqOn7N4LUj+NNK7i0/L/D2iSP2ZhvkFr
Jn71A7AV60e4WV8JTPPNoxZPMjC3sayS6fUBSFVoe5R8rRI6GEsz/a5nYNPC
lmlWch9hZJTZQZcBfz8M+Z6nPoznjf20t8JffAQJpQ7ZAeMK8K2ousozk475
Zxp4NDl/gubvOjNcs2VgVY2WEpTSsS6q1byXIp9B74/x1JJkCSy2hOq7ZaZi
dAwBGS+jRyC7UD9+cCUff7dVNNQIJ2H3+WzpbZpGwAFbEXlilQ+ZR0YT0j+8
wcJ2kjsPboyAAtWD7e33eSA34pXywfwNVhQoIMB45QtwFTjJLqXnQsB/kddY
nV9jSidoog4pjQK7bo+t7LVs4Pj3nsMtMgEjWQ8q1Pd9hau1ZnfSCelQYrJi
7PIyDjP/gdKHyBNwVeI3Z4/3S/w9rUicWX6MJbB2WzDi9dyrnY//pSXfxFJs
CwwD998CJGRbbhXyDd4ZFN5VcrqNvXU89fWJ7B0Q0TxDV5H2DaKbCMnjBHds
8Kl6SI64O3BzMx13H/sGoRVFDMcE7mOpPx9y/BL3gSMbGYdETKdBlueuc0Pw
Q8zeWN1IUzYImORc5kSOzoAbwf6szr0n2P7g9X7DS9Gg6d4W/BR/53S0Nnod
HU/E8tx8cybTE8Ez/5ba1c8LML7Tb7N7LRsb30OwqbufDwwVtZNjawvAbUu9
Qp+fjX3JjAbRjXwQHB61uszxA+jzztd7rmZjK6wtsku338JQ16N3NkY/wORs
9/0E/xxs7L7wxU6Hd+B9WZzTv+kHtPzl6l58losVKd9IOfq2AMaUkwRIhYvQ
nsDoS0jKx5YeMLF8zikCxHGXuC/iF0zVOB1mTy/AAr68XvjyvgxYvpMvf836
BZiVNAMJFWBU7qZ7H7OWQ61K5FRkyy+w0Kb8qR4uwJr0FWbunC2Hi4+KC9ap
lqDtZW+/EbkQu39upWpguBwuZMuNXNJcAqwh2VfVrRD7Z7LPcXmxAjqkjInH
ipdAWGotVki1CPPwzB16KFgNaeYWRfbJy+CW2Fd1Ab//Z4brLyQkA/QnNcga
vluGolrWrYToYqxmtyP3wQzAG7d/S/tql2Fl6SJ/RnIxdlhULLCFC8FYi5zF
1udlmPhiZcrSWIxJhK73s19EwEavd+8ZZQXMnZLMlGlKsAW+ydyMGQSv95k3
9zxYgaWNOboFzxIsekDFpIzQAFC6deWW1W/Y+ugVVKReilkXW62eOd4EB/H7
8qLTb4i5l/xmS7cUY4CwOQunJti0pD503Os31P7eY0o5XYoN+3zSdn/SBE7S
drFCz3/DlAb7l2dXS7HDGUZ8P0aawPpgb2lX52948irjBmdIKTb7L2yhw7UZ
Lgt+j1E5vAp79sRHbDeXYmL7owgWyS0wy3M9VMRgFaYjfmzMfyjFQgUnMtJb
W0CzdSaSxWIVgpXOiyb3l2IvlG296X+2wGRnWP3s3VU4LPhv2mW8FHtqa5NB
q9EKDJdGqxLyVuG27iL9kz+l2OAps7KVj61weIRtmyiwBrr+V6x/8ZdhzNVJ
fjHkdrheH8m9V3YNKDpBDCPCZRiX5osgb/V2SGBLUTqivgZH/iVLh+0twzYK
jXm8bdthYNLI4q75GsSocojKy5RhNT3kaVTdDp3XtO0eX8fbf3Hn2ytfhrma
6PMSZ9vBRSvUKcd9DbKTVvtHFMuwTKP8/mvs7yH8aufl8WdrwD7S9z5WtQzz
pjrQZ+fwHii0Sif/pa4B7bK99Au1MiybTZGdKRb31Fyp/4rXYE0zKPziwTLM
jWe9uwW9h3vna2sMetegzVLimbxGGWb0wbE2iKcDWDdrXOzG16DuJJ2lhmYZ
1ngodD5YtwNIiVls/r/W4IIUry3z4TIsUu50ZNKtDriRq5Ycv7MGfw086pJw
9/8gmdab0AHn9wgJlrGsA9urDfcN3JtMIxX52jugLvK/oB6BdfjociiR40gZ
prjOKO+11gHjG4MD32XXYTbqJbaCt3+QoxW/LPoBRn7ysdJprMM6tabTM9wD
+Kc8/Yw+gMH1OAXhk+vg/B9x3198noHeZU0S3h+gp55x/yGLdeBTSYvfi7uT
zdP73zLx+6xaSuSc/Tp09z6opOD/y1VwJaVy4AMkCpq/CQ5eh84jd3TU8PUR
cf4km6PQCaYPRpWSYtdhKEi53RlfT86S3EfNFzvh7JW/yZVp6yC647vfEV//
u91dFhuhncDXOCP4o2EdHg7br7zD92snRkgibaoT2u/TWpzeXYf2gXjdG/h5
YMx6Gsz5qgtUuuoar7P+ARL/4+ON+PkJrCfyL7R2wZkT32n8BP9A9wx35Dh+
3gJt3nMMrXWBcazf7juNP7Ba0UVtz1GGnTvnue/fmW5gjWdDLJ5/4Pkhk/Lc
XTzuGKZY8uh6oGl49AQs/YHL3enLLJ2l2KuuLXv1+h5IFHt9Y3liA0L2MB52
1ijF8jLUVoWO4nX03wYuwtIG9AUukAX3lWIxfVGZ4+f7QEM9zIOyswFGCd5h
cRKlmMSBnGd5zn1gVxd4QYFvE/7KTHqsUUoxQccIIZuEPrjkVOxrd3YT1E4l
OxyfKsEcmCjUBht9kJkzg7U2bIKDitvhU74lGFXs+Vf0Rf1Qe77rvHbqXxgg
ijkPRBVjb+ZLicryH8HK6Mi1T1e3IFLG6TIPeyGW6neAxl/7M3C28lxZdd2C
UlNC6uJGAZakkDq6eukzvOR7lczmvwXzdSyuD8cKsGMtZtN3732GT666i/pv
tkAi6Oj9rdwCzFIwzOdlwWf47GTgVDiyBfal6tRE7QIs2Dmq5a7wEIztWohf
MNmGgCTms3TNb7EotjCPO7tDoHyMN5n62A44Mbm9cprPwaSOa7wPbxuB26nU
xBg2KlT3kiFQviwZa5qPT3zlOwb91aXs5V8JKEPzxRnq3lAwfbgWHps2Bbc0
dWTc/GiQ6fKP9uvJhTArLqxCCpmFGjql7mtqdOio4ldGCasGiJPa3DZZX4Ab
jo7jVUCPLr6t+fq19QMstJKd1sWX4P0Os+8JJQbEzii6kao4ANwhv3nyLq6A
TFhRe3w2I3pLrT/8XBN/P05d/dz2aRU2s2qoXJdJqLXjdOInrQmgeulGe+7A
H7jbkLgie4AZSa4OGmlHTMNYLt+ayqdNmAp36HxhxoIkzavy8jm+g2EtQTbl
5ha4hhNu6+uyosOktksTUT9BwNUkJPXTDlRO1xtt7yUjNW0jnrzeZRjoeRhe
UkqFjMVVxUMHyCjEj+Gv9vFVUNOddvCcIiD+s8+zqvdREGl4fkofrYP198Jz
TdQ06IOB1Yl0ZwqiuTYtnOa9CUe3TP6rUqBFt4frLyvFUVBJ0odziuQtUKu7
yd1yiA6JqTkFNeFOjOCcsOHbgkZN6RSFI3RoWzXx1fmXFMSmevl1nPgWTPqI
yjzXpkNbxiwJXq8oSNRROI1acwuSrl1XumpAhwgx99eLEygoKs666rP9FjTl
NTP/tKRDoeoWYqtJFNT2sJo2smELjpS3Vg08oEM31M8fys2iIFWJnXZ6923w
0GKtG2miQ2PklNG/JRTEq9MpzzK6A7Kbr47WG9CjUySeNb1SCiKzSTsFz+4A
nZZ2ZNJpekQwUpN8ivtE+NnY3eUdcD3TP+N7jh5Rc7aOiJdRUJFnYdoy/S4U
n1TsOHiRHn30Lw3VLqegE9EHkwaUdsHA4JJh8g169GCfPd2ZSgqSs752JjZo
FxyYbwgdC6NHIqlMextrKKivgmprm4sK2eSInBlspkddj62qVnAPCJ26f5Cf
CkWvKF2Pa6dHLL9ZXERrKcjw/JW52yJUSKnIJ9y8kx6xn+pT8sF97UWG26wM
Fbqrm7nxcYAe7WoJ8EjWUdDd/GW7bowKTSS9ud08RY8yLXOCzwIFUfVKn33l
QIUevh8cdicQEdqTc42qnoKS5B518tZSoeva0Ql7NYlocfazEwfuJvXUD9Ua
qNC3V0oiJRgR1dNeShTHXclGnP9cKxUqizSo1tEhIkPDJI/juDuVaUxG9FIh
yk3Dg1dOEpF4dia7P+4/r6r2/5umQluK2saPzInIqPW/y1G4hx977cG9QIWi
2F2fclsS0VsNw4E43PnXjTaUl6jQ7PTPH28uE1Euk96hfNzhgEWUw18qpMx6
fiHfjojcfn362YE7/Z+N7QFWAhq8H8cGd4lI4vlyQC/uedS+Pr84CEgrfY33
qCcRzY6pa33C3UdjZ4CRl4DqzoJGgzcRNX6vkxjGXVZRmSgmREDEECEP7QdE
VJMepjaKu+tYH/uRvQRU5X34Q30AER3tyXAZ+//8G17+OS9FQL8yjmtoBRNR
4qZo3zjuHY1apa7yBDRQ59BUG0ZETn70VhO4S+sGGEQoE9CB2t7r6lFExPr0
Msf/vYqPtyrtAAEJT70VL4smov9kDq78v3+jWERVp0lAV2v27Sg9I6I6tvi/
/5/Psqeq8OBRvJ+9kcs5L4jIcuyp3Mj/50m9j2tJj4BadJZ398YTUfeadOjg
/9vP3J5kOEVADW9ipRNeE9FG4A2WftxvmZQHi54hoF22d84cKfh+BVnVdOJu
uFJNUDcjoK3eu91h6USUXxnyAuH+vW7H68YVAlLamft2J4+Ixge7Gytw102q
8gywJSCuduZXs++IKO/gMm/B/51H+dSrG/j6Z7Q6XigmIuYDUzoJuBcEmNxp
v0tAEltbtoeriOgE7a3HN3BnSQmpFg/D99E5umajlYh6KV1MY4iCaoUMdz4W
EtALN3+lY1NEdLX2wlA77pttX9UXyghoacCnO2eGiG6tq/QW4+722V6fqoaA
QrcyHpO/E9G6zTj2EHenYyEj0i0EZHBj+u6nJSIiCSXzCuF+6+1Kp9cwAT1E
m18sdohopHWqXhKPF2k1l1oOGmr03SrD8wAvA4JRJYwa914Ox9UYBmpkY7D0
flCAAb3mOlk/gscdvfCNZQ5WarQu7CXkIcKAAtW/9Uf8Px53/TU5eKlRvm5y
R5EkAxI+V648jsdv4PEyClmRGnHp7zktpMaAtA/f+miB5wGnkEK/fxeoUUNR
RETLWQa07xBLRHQFBe3y/BLLKKJGU48CCNYRDKjWLHqD4S0FHT0qYaduTYMY
HrXQ/95kQL1DLCK5+RRUJmq/aGhHg8x23TCRbQaEKh86nMKdSTRV3dqRBnn3
/eo7RcWIGr6vWUfmUdAb5e8SIW54PzRB5DR6RhQ4XTpNyMXzDNqj1xNGg465
/6E14GBEGrJMQo2ZeHxd4k44X0SDWKKfCvnIMaLrvvesE/H8zFhRna5OQ4uU
+1OY3a0Y0ZNORJf1mIIk5JrEz6XRopPP7rHsr2dE/7SCvxtY4flBYbVJe4cO
JZl/+EkdR0I3yf+stQQpyLr+Zd1BPI/kMzsV6wUwIa5xZwvGEjJ6Iev77act
A+LjXiRuxjIjwjEZwZlCMlqj204yvMGAbnMwPT4Sz4zi7lf4NL8jI477i4mZ
zgzo5l+X96FJzKjYRfNMZC4ZyVw322fowYCajBwkZXOZkbTdCKtmKhn5SDZV
XgplQPpm/JPpiBk9bpsYUYohoyXNa4ZR2QxoW/iMtu0PZkRfrh7Z7EZGo2ai
9wlzDEilkKMpXI8FtZioRLAcJ6PkQCpvNVNGtGZFyOAksCKZiVMXl46RUVCc
iTOvOSMab/trGkPPimJVwss+6ZKRe3Kk3sYFRnTtm5YEOzMrsiXdpn6rTUar
p7Jqs68wIlNC+waZmxXdKM2ODT5CRjs/rrl+cWREPbpXpZjkWdGRIwpBX9TI
6Gilol2wPyP6r+T4jXVzVlSawfZgR5qMetNiFXhzGNGBlGHRKwWsaP5htq4B
7hnRH2aD8hjRlNVmTXcpK+oYjqLES5GRiFTv6cW3jKhF95LlkWpWZJPLkqUj
SUbH2f/plhQzoomcrsc8LazIg3z+dIUYGakXibnw1zIiVaGLUmiEFWmpvTop
K0JGgUGqBJNuRuT4Mj98kJ6MPj8jdv7Hi9chdREsz5cZEWNmVB+DJRlNS8z/
rOEho691nclxvxmRO+2i1H5rMposO+Vgi3ti7dWiuDVG9NzFheWKHRnJzR84
X8tNRuWHaC8+2WREEvf8PApv4fNWss4I/Y+Mun3M9G0JJOQwqf1U+yEZXW1y
eR3GSUaPZ/+5xlNI6NcBH3mBt2T05f7SjXO4e+stjHuwk5DmwR+3lIrJKEwo
6Iww7iQDf7aznCSU4ZUuplOBr3ufllUtBxnFkJ637nKT0CWbkEGbBrzeklFi
Y8ddXm9tVUuYhCLVho4//URGFXpfO/nYyWhsdD75kjwJKS4Qr6TskNGsgX8M
Le5m4/Lr3IokJK2/53EXgYIUvq5rLLHh5y0g5XiPEglRK+0TMqCloMKUYKlO
3CdIDb/UVUlos7f1/VFGCorYo29Xh7vcA2nDxf0klCn2draaCc8j9QpehbhH
9auXJh4gIUkabZX9rPj93UDgScR9Mt29aEOdhNTGL5mKc+D3bkd3fCzuA1x8
RqmaeBwm2somcFFQo0zA/OP/t3ezIJw6QkKcSnyK7Dx4neTLtxOBu0WLZfcK
RkKviceuhPDh9ZB+8qcw3Pcu61S/OEpCJzSL6/4J4Pn9m/it/7vsmESbug4J
/fDYf9JFmIJS79a1huOu8Yhrc0SXhMbH3lBPilLQ/NeQ4SjcP0rwnPHWI6HO
nfbZc2J4vqtIT3+KOye7Yj/PCRIKfvtos0kCr6sOaUu8xJ2Zci6gRJ+EbKg/
HNgvTUG39z+ySMa94qSbtZEBvp6qNilpshRk+52nswz3n1fPVfsYkRCXqcqW
nxIF7XNKi1/DvW1LUb7JhIQetuB7po7XTzSHbBnx/dq03p93xoyEGM0KrV5q
UlDm1cUOIdyDlitcR8+TUFruXmlqDL8n6mztjHA3ffF7+NcFEvo5aHa0VwfP
y/y1oQj3R6ffu1BZk9D+4nlfW0M8z8p6tk7hvkq49SfpKgldle0z3zqNj5td
PMCAn6vEQvZo7BoJfbMnHnp6loKsTngZmeO+/+cilcd1EmKWeslcfZ6Cx2eG
IzN+bmNybx/ovon3r1tMTbiK19kJqK2Fi4zcupWiJb3wf+KyP2blTkHB7ynO
rnxktCUoJhzxhISiA8KvXn5NQW8jyXvacce6Tpz6/ZSEeOkXjQbx/I68Z4z3
8JNRdsWrcYtnJGTKG3jcKJWCPlpd/m8Id/bTjcf3vCChC7+vWx3C63Kb4Se0
5oJkdF6ywzApgYSc+PlkaYvw+/XNj6SXeH5IzDPnOJdJQqwf/wU4NeN1nn5i
oBCef/Sa6Y4nV5NQ7gd52/AF/JzIOf6Iw53XaMahuYaETlnuqNYsUpBUD60j
J57HFJXjrOZq8XhstT60+IuCHnkEprHKkNH3f3UNMoiEBmWpJk6tUlA3X9k0
WQ6Pl8oXr5KbSMj9tXcx9TYFPT0tFKOrREanbg+nmHeSEP9AS9oJVjaEIgTq
nQ+RkbKrs8XqKAllZ7GXYUpsiC9YcuOxERkJL46/FtgiodMcm9bfXdnQ/ryb
C5anySgi5bs8zzYJtf+K3Cd5lw2JPY3/IWOMxyNF/zn7Dv7+C13gtXFnQzye
M5zvz5AR/V2jPzRUTCinwU/tsxcb6owzm+I0JaNBuW3uIRom5PXmaHZ5IBuS
chEtHLlIRl4tlhWGTExoP29fs0EsG9pKtbSSuoHfO0OvJa7zMqGwaT3jjnI2
9LyiwoHLkYw8eD62Y3xMSOCe/fxCJRu6on7PgcaJjC7GhV7j5mdC+WpeGUw1
bMio8bHO5E0yImplBzYKMKG9L2uiTiA2VDZ8xTjXlYz4Yw4/IIswoQSnLt6K
NjYUWfH22I17ZHTPOobXQwK/p00iXZyH2NDroUZDOy8yCr/36SkmyYTsqKSc
/UfYkLBpu5aNNxkx9X0hE6WYUOn3ptiYUTZEEoyavnyfjCQ4WXhipJnQqLW6
dekEG6KzKee/5k9Gd0IS776RY0JSuiHLP+fZkGwg4eb1ADLqm8sQviLPhKya
U7T+LeDrIK+Z7hhIRte/Uw0IKzAhDlaJavqfbGgqO6PNHb8H0PqZiwmKTMjH
IVqFf4UNeQ3/KLofjJ83cryihRIT2u1iVhZbxed51DjgYQgZPVv/TObax4RY
U/gvya2zIednV9QehZJR17HCrW7cxdPpS1U22FCPybuuF2FkFHykbT1MmQmd
OMKtrv6XDf0P5oOiBw==
      "]]},
    Annotation[#, "Charting`Private`Tag$2611#2"]& ], 
   TagBox[
    {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[2], 
     Line3DBox[CompressedData["
1:eJwV13k8VN0bAPAxU6MUaVpsRUWKQkpFqdurEpH91WJNkopSWbJnSUILXkqI
srUQSclSzxFJhWStZF9CItu9Mxczv/P74/7z/cx9Puee5znPc2a1w3mzk0wG
g/EJPyz8hPBDBnfM/UO0HZd/PiTZTOzkiSQLygeIZQ86fK9ODhP76880a4g2
E0Npbu06pQPE1GObqJqeYWKZj0iFn1AzYV7l4xpaMEA88qxfY/lumHj1Q3lk
7lATUe2l78bMGCD0clqX6gcOE9NHv+rOFjcRET9PUoNXB4ieaG7AS+5vQiQy
Xy3Auok4earCw+nAANGmW8ZPGxwiXtdHFRUlNxK35tk6i3/8RSxkHxnLx+vK
nyoViZFsIKxYn9tnK/sJlZfMnJVkD7HU3/FQzIEvxNHEY4JKv16CR1bHK8e2
E9b5U2f8TauIq75rN3I0uok+44+xi0WaCG+T/k7HFkTMeD74Lnmvg/hoNzlr
EFNBSJe++sT58oy4Pnar/MXf78SqgOFet1JTSLitoH/8YTREuHL7mlc1Eq7q
tdaHPleCr5poVOWqt+D+/e9ZpP2JUBe8+/JSrBm2Gb9wSDlZC0bt3lIxX18S
WnUZp7N/tMM1k/F6R48WOFMrXfip7AG8LZdXp472wAD/s4u3ZyeYfJga//fI
e5A95uAqsOoH/z+nlU0re2H0q5Pm7uP1kF5JHa//OwDCZQurpWAAEi3aZl8X
fIfaq6n+45G/4av8lmZ+6TBofVOKGCvphHzVA/3Ww39gWn3jwYHlf2HLCuKB
pEkvLDQUNszY+xeys4+Y6X8ZA6n7mvt7Ng1Az8crdyLjx2DvLoVyPasJ4Lgf
PqswfxgmW0VdwrvHYVRzzrWJJ5Ng0Ho9Uy13FCZ2JDptcJiEbrXjbYZ/piCQ
23LfpH0M/EUNd+r1TUGem1z/gwES0q/feh3/ZQIa+TKyq4anoH8i+Ir9MAmp
/aaHV3ybADsiJZ8en4KGZ1VK0n9J6B1WLHzYOQFP/etmChkkPPn57GoARcK5
ru7c52MT4CIVccZ8BQlMZxEnETYFlfrvtL4tmYRPpWFm4hYkXGRnhiuuoUAl
X5y5/8gk+Luuu1T4noSHVbkn11tSUF5kZxncNQn7YO+J39UkfM+rydt6lIIO
XsI+qaFJyFtg77imkQRx0QdF2tYUiA6Ou+aN4zi+mekJ3SQYR8jWb3egoPPD
zOEO1hRM+yufzhGQ4BSiUdjpSsH8pH8+7lacgvbyOzouOyhIpTOfjIVQMBzF
9J89MwVZ95hplvkUuI5u3JX9hAIjp3hnrckpuHjCq6KmiAJG1FW36mwKOOdv
mKfMTMGzro2SemUUfNLd/LP3GQUffYt058wl4T8FOKJbR8GxjQdl+TieC1Ek
9nkZCZtn0vROj1AQlrQ3rq6YgoTAxJiD20lgl9dU6G3ggjsxz+xXFQUbDtUW
sHxIiLx+SXRiMxfm+zgnhHyioOppjcAsmAT/XJng1B1caH8WLylRTUHKZVXj
1AgSdAyUBuYc5AKvetRP/gsFl/X52RqJJLyzmHCecObCFG9kSV0j/r4lMht0
SkkIHci47ZjFBdNCQ4Mz7RTsPuVO/5wlgdFTZ7AnlwsBw18vXeygwGdtQAgT
53PaK2FatpALa2wON7h1UuCdcjlTQYwChQze6r5KLohMZdLG3RQsd3xtbCtL
wc3bji2x/VyIMvcyiO+j4Ear2ob03RTo/TsYFjbChZ9bFaOM+imI214b/FSX
ApuXLyZ9SS64QvytGez7b43FPDOiwP5U4OA5Ng/WHdJ+rDVAwYV3XIcsWwoi
h1Zpuivy4PTO5Hfbhigoqy0zsw+gILns7E9fVR5sfhmdn4jdyf0+UyeMggWL
GeNXt/HAUYtmkthra6TOyt6koMdk/t4HujyY62eRGPGbgj+2am2VyRR0q3s5
5RvxIMMl6EsF9tJKswcxGRTISK34/N6SB7vXp2lPYhf0rIs9koPjSXSfaLXF
cc4s+SE5TMGRN203JV/iPEzvlZ9w4sGyqwUpm7Grpuxwqy+l4AU6OL3wPA/q
ZKir/2D3XJnECavA+zYY1bbeiwcHXnVc3Y/9RS9tsgXn+dE21RLdQB5YWS1M
2I19odXo3B8NFFBb20OdrvFAX6O4aCN2j/YXC3xaKSje3KIcfosHjIefuxdh
H9q2XntJDwXW3u1JT+/wQFu6dtEAXn/wnRa3DLwfAtTygMriQXOWxSkv7HlR
Fw0KeBQcf63aF5vLg89FWlVbsNerkAfzGFzoVXLxVy/kQdr7iNv9+P2f34zz
MoRx/gKk3dwqeVCid/BfNex+7o3Kfsu48NTh18PpXh5Yd84vP4TzyIyzONi4
iQvhanGNqcM8YCuIn3/zi4K9h9X67mznQk4z95vuJA++ibTclMf+nF3fbr6b
C55rlDhxLBp6vUq0G3BdnZCWPV1gwAVJIZNdmmto0N39nlGG63BFfcuWpU5c
uCzQ4Xcp0fB9vHaytwvXyaNQuTsuXHD26+VFqtNgvdc0XoDrufNdut3iS1zQ
8dhi3LmHhs4gP1EpXP+swUtHfwdywXzLEoVwOxq2ChVsbP9BQWK060P1BC7k
ViduLkuiwamzaPItPvcWucXff3/kws5XGZcd02lw7hQkWuDzWN8jKdn0hQss
DjuOnU3DqnpLoe4anNc7PiUvmrjQMOfSmG4JDTEyMs69+LzTySIVJl1cyHPa
kvDyOw1eSueDInB9nNQ4LyTM5UKLkEnM1uXT4GxAWni8wutM7Yw1ludBdFCH
wYob02A1HVVSEEeBmcKfjS1uPODtdLYRiZuGwWeTF4xjKXgZdXhvhgcPRmYt
YSJpGvTL8m/23cbnof9ElqMPD3xaByVfZ09DjIfQlzlR+PwcMLcuDOHBQ/P/
3s+pngbpr4pay4IpKLm7vys7jgdSey4aJM+fgca3np1Pcb/V6h3q7HjFg115
ElFnrszAajF9DfF9FLwTy5tsH+HBmrrlw2lWsyD8YadcIEmCgVHIWOROGjo+
5i7LPT4LOxafy3SfJOG0zGifxi4axkyUvF6emoXGuv0rzo2TIC27obp5Nw22
1vZzCy7NwhHNdNplBPe74ulvc3VoyHgVZOQdOQuhiYOeif0kuLJ8G5fo0ZBs
H/ZjY/EsvP+T/LCshYS6Zavi55rTIFnsUOi3lA8Lyu+EmLwhoclmelOfIw21
dKybkDQfVH4f+l1bQkL+DcWs1pM0mP+KTgiW48MJldRS02ISDtDfRmqcaDjw
XMvBR5kPlju23nUsJCFWzXBXpjMNVqoSHXv28ME+Z50oPCfhipbN13UuNDxI
nRxUP8sHq082qvuz8JwUMW/1v0jD0n8j0nrf8mHT+n7ZoDgSKkrQli4/XAfz
9dJGy/kwW/n3Q9R/JLh39l87509D3uNEQ24VH/bU/TVKiiUhJOh5Og9743ab
YmYDH3wjj/ZVRpOQ+eTaifmBNDy5d7Rhpp8PaNfKQv2bJHyN3rlCPIiG22vO
mUaJCaA3csFvoXASDkXKrS0PpeGFwSUJPWsBDC1i6sgE4HmmVn9sNoKG9NW7
2pcdF8CJBm56gj8JXqrH+v6NpOEfukSh+6QAum6vMpLB3rBF2zAH+6qx1gOe
5wWgWBFut96PhBx74uORKBouXGsKvREsgFKZStIZzz/6+bh62g0a3DsaUv0e
CSBATBwCvUgYyVw+LXKbhlaLU7RGjgBybI/+swl7QGekkgV2XcshpeHnArC3
nfemxxPP17krYpKw+79PkT1cIoBU+H7DHLvp6NjaDdG4TmacfsnVCsB1ev4S
Sw8S9O92dBMxNHCjE5cHTQjAJC3vUfclEmoUXT8Y/EdDWvXjtTe5AoCCfY1v
sJ8YyFt3G/u7q3yVe7MCyBYGpSTsAT1hUw3YW7rVUltYDKQ7LqLtgH1/rPbI
0TgaqufdV7ZmM9DpD2V/9LGfpMTlk7B7Wgdqd85jIA93pRca2N+8Of69DTvf
drXQL1EGuhCnfGIJ9tySoDa7eFxXYUuLToszkLvmLx1h7C+D0zVSsY+OdjCH
OQz0XiVxFf8iCd1+v+U6sVsXLuxyXcZAQj9/kxT24uG6NLk7NHSlr7QclWCg
u8/C0CR2q/zSClvs0XtuObpJM1CL9OrL//fJB3OuJWO/1dciNraCgSoyL0v+
P876n8MjrdglGk4dviCH1zlmljSDPV72EUP6Lg3Ersd7xlYzEFnkz5+D19my
+Ag6jP2JDaPGTYGBzvbXaolj97wjujkOu1HoZ/6oIgONRCjoy2L/K/HxaD12
FlfK+s8GBuIlBHzRwZ4qx2o1SKDhtdDPXb1bGUhpRH4kG3u08riY9j0almv+
s+24JgMdCYnTrsWec6Io0Qv78DjR37aDgXIMFLaPY6/us5rJx26XV+DRTDCQ
ZoTOSh13Eu5tnn9AKZEGxGTerNBnoE9lI+uEcJ3wF/y1W4r7/r6hjgDCkIG+
DvqZbsf+R7Rz0Ai7Z5OiZrERAw3uNhFyw253RsjhOnb6HHdBrjkD1Wl5dg1g
V7q5VImPPcvl5/l4GwbSU7dcy8X1+dHnzslfyTQYD6xosLnAQAz1qO5wbxLS
BtsXlqTQwGYHebfeZSCN1EARyyskKB+zfnU5jYb3Xrzm9YkMFHt6rWo19kfq
w4vzsYs6goZnMgNlbjHj7AvC8V8kPfyN3UxjGSn+EO9/qb+4Fr5fml58dNoO
zy3iR+hz3acM1Hh7MmZ7KAm64aZF+hk0aNVoixe8YSD/iEDNUNwfpKQzM5Wz
cJ+57SR1v5uBjopdMNePIWF+uovEuqc0RD2amOzbKIScXpTXzjwm4WaFoFy/
APe9ycyge1+F0EdSPvIc/t+Bzl1PUf2C920TP/6iDxPlMx32ndCmYNFr6cPn
pnB/Hswr+ybHQsl23fey8ZwytHK+F7t2GiJTtlbU/GShoafNMZ8m8X370c2v
nNPT8I+ZUsnD+DmoTq6t+f1RLlSlKOvUFU5DhfsvzQ//zkVldw/+11KO76Ex
cpdGl87ge7l0v5waG0UcE5TYEjyYnmubu+jGDLSE2thRTGH0qWCuulEJD95G
5KitEZ+FdpGnyuxxYSQ92+mraYj747eF65YXzALSrHgd/n0esjygcuR+Ow2Z
V+KNXzvwwetb+8aM8vlIc82166+8pyF3AvkLyQtAcDOvE6pE0BFGV8C+TTPA
s7g2TwT3hVjHJtF97xagSMM9c44PzkDaJu3rOQEMNLT6qM73poXorHdxgE35
LFyV/P4uV0wIbYhLbrUeEEXHXOovMbL5UDrn3LnCx0LIeeUci5ohMZQ6vKFD
LF4AC709K+/pMlHgdT+uAVMc0eSjbHlcj/21O5QIPhPxxdfJHQ4TR1/Dw1yb
fuB82jcJRl+xUOkN+0li3mLUkhW7xt5ZCJ1WVXJJ8J6DMnkZpv1xi1FeVuEP
aiETLbtnORxtOxcx6KXrVWQ4yIyW5O4sYCIJ2dVGHvps9CbkQkfISg7iPIk6
Z1TIROQd7sGqQ2wUJBn/9occB2UF/wh1KGYizuK6mJVmbNQ1bkGGK3CQ3Ieo
tFsIr/vufokvx9jo/l9Rq18qHGTttFCdX81Ea4vnhRi5sNEavVUB2Xs4yE70
map6PxN57uorLr/FRm1sR2EbJw6Kea4RLiPNQgdEdNoKvrGRvJDGdJEzB6Uf
swlxXclC2UYeM9ZtbHQp6JKqxFkOur9KeaZsFf49x1tnXjcbDbb7Hq4/z0G6
NVrRF9exUJiPyhnn32zc15rqDbw5SChHMmxCg4XyTbfrm/DZKDwuKcgwioO8
IKIm0ISFJH55EFUKwih9VGU65yYHZW/bc0ZgzkKL3z/lZSkJoxnHyqpF0Rz0
kWNrG3yYhWpkFO9Fqgqj87dvODXGcVBDfElcjC0Lxb5K/WSrKYyuen36eTyF
gzoU1Z3bXbBLvMzZZiiMumYSFSsfcFCj/ooeHzfsyipW202FEXmsqV45nYO2
X/G2knFnoeaaWx7alsJIqvDLsalHHDQVWvDI2ZeFbtPGhIW9MNKq791h9ZSD
2FFO+csCWchJ2Ffi1ElhtOLhgrCyHA5aYG8p/yGYhUR42s8CzuDvYt3fvT6P
g/vbrKR/GAutHG+QSjwvjLz/Ezl1K5+DtLs35W+PYCHFIYMLpe7C6H/NLML1

      "]]},
    Annotation[#, "Charting`Private`Tag$2611#3"]& ]},
  Axes->True,
  DisplayFunction->Identity,
  FaceGridsStyle->Automatic,
  ImageSize->{368.20886333393076`, 390.9334222268775},
  ImageSizeRaw->Automatic,
  Method->{},
  PlotRange->{{-4.758999000954256, 0.9068884430743797}, {-3.3996772079333963`,
    0.34527079867032545`}, {-4.494362743061693, 0.7739255969279734}},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{-1.2886844108115783`, -2.5112008522626614`, 1.8663233291491848`},
  ViewVertical->{-0.0013051852278407328`, -0.08114310911401744, 
   1.0739214553398135`}]], "Output",
 CellChangeTimes->{3.7559193305472493`*^9, 3.7559194178721128`*^9, 
  3.756374466654717*^9, 
  3.769810718243718*^9},ExpressionUUID->"0d4f63cd-baf5-44e8-ac79-\
3e21fde48931"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1280, 717},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"11.2 for Microsoft Windows (64-bit) (2017\:5e7410\:67082\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 168, 3, 53, "Subsection",ExpressionUUID->"2cae5fd6-2d57-4bf2-b8aa-755930cc1bf0"],
Cell[751, 27, 14867, 390, 835, "Input",ExpressionUUID->"8ca4613c-2c72-4944-ae36-d1dd0bba45df"],
Cell[CellGroupData[{
Cell[15643, 421, 1996, 47, 94, "Input",ExpressionUUID->"2b043ad6-65ec-45ef-85eb-f5e707341a8a"],
Cell[17642, 470, 1304, 31, 143, "Print",ExpressionUUID->"5978ebb7-8079-410e-82cf-8b318443db85"],
Cell[18949, 503, 471, 10, 24, "Message",ExpressionUUID->"7e7f08ee-a4ef-4861-a76a-cb440c719612"],
Cell[19423, 515, 182304, 3266, 201, "Output",ExpressionUUID->"54882c00-2ba6-4d47-aea9-75305e1f8dbe"],
Cell[201730, 3783, 10324, 182, 262, "Output",ExpressionUUID->"e0499b1b-25e5-4b95-89e5-5d8bbd7e14c5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[212091, 3970, 1237, 31, 45, "Input",ExpressionUUID->"76d0c881-cf9a-461b-834d-7e0dad56c245"],
Cell[213331, 4003, 1422, 28, 95, "Print",ExpressionUUID->"231085e6-b035-4279-9e3b-af7ff6a55d7c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[214802, 4037, 219, 4, 53, "Subsection",ExpressionUUID->"39cf0792-4892-4838-82bc-74ffa79929ae"],
Cell[215024, 4043, 567, 15, 28, "Input",ExpressionUUID->"7776b9b9-84ba-4473-b59f-0a769eff0112"],
Cell[215594, 4060, 10191, 259, 407, "Input",ExpressionUUID->"8ca4613c-2c72-4944-ae36-d1dd0bba45df"],
Cell[CellGroupData[{
Cell[225810, 4323, 290, 5, 28, "Input",ExpressionUUID->"a1875c21-1d98-44a8-9dd1-8bad2fdb24e3"],
Cell[226103, 4330, 37543, 631, 440, "Output",ExpressionUUID->"0d4f63cd-baf5-44e8-ac79-3e21fde48931"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

